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The  OKIMATE  COLOR 


The  first  affordable 
color  printers! 

The  new  OKIMATE  Persona!  Color 
Printers  are  breaking  through  in  flying 
colors.  They're  the  first  low  cost  personal 
printers  that  let  you  print  in  rainbows  of 
dazzling  colors. 

Now  your  computer  can  take  on  new 
meaning.  Because  the  OKIMATE  Printers 
can  bring  the  information  on  your  screen 
to  life.  In  brilliant  colors.  And  for  very 
little  green. 

Fully  equipped  for  reading, 
writing  and  rithmetic. 

The  OKIMATE  word  processing  capability 
delivers  crisp,  clean  business  letters,  term 

papers,  finan- 
cial reports  and 
homework.  So 
now  you  can 
print  in  min- 
utes, instead  of 
typing  it  in 
hours,  You  can 
even  highlight 
words,  ad- 
dresses, para- 
graphs and 
charts.  Even  underline  points  you  want  to 
emphasize.  So  you  and  your  information 
really  stand  out. 
Easy  to  learn.  Easier  to  use. 

"Learn-to-Print"  software  packages  come 
with  your  OKIMATE  Printers  to  show  you 
how  to  start  printing.  In  fact,  the  OKIMATES 
come  with  everything  you  need  for  color 
printing.  Including  a  data  cable,  interface 
board,  color  ribbon,  black  ribbon  and 


cal.  Lightweight. 

ry  versatile: 

draft  quality  and   40  cps 


per  inch . 
nch. 


Or  compresses 


he  OKIMATE  20  can  deliver 
>,  elite,  italic  or  fir*  print 
*■'  iw»«ori«.«  and  under - 


n  single  sheets,  computer 
overhead  projection. 


"color  screen  print"  program  on  diskette. 
Now  you're  set. 

lust  plug  your  new  OKIMATE 
Printer  into  your  computer 
with  the  PLUG  'N  PRINT 
package* ,  And  phnt. 
It's  that  easy.  In 
minutes  you'll 
be  printing 
everything  from 
financial  reports 
to  souffle  recipes. 
Home  budgets  to 
original  drawings.  In 
rainbows  of  brilliant 
colors. 
Built  and  backed  by 
the  reliability  leader. 

The  new  OKIMATE  Personal  Printers  are 
the  latest  example  of  Okidata's  technolog- 
ical craftsmanship.  Built  with  the  same 
dedication  to  quality  that  has  made  Okidata 
the  most  respected  name  in  com- 
puter printers.  Special- 
ly designed 


to  be  small 
and  light- 
weight. Oper- 
ating as  quiet 
as  a  whisper. 
And  beautifully      % 
affordable. 

So  grab  onto 
OKIMATE  color 
printing  today.  With 
the  new  OKIMATE 
Personal  Color 
Printers. 
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•Special  PLUG  'N  PRINT  packages  available  separately. 


IS  HERE! 


PRINTERS  have  arrived. 


The  OKIMATE  10 


The  OKIMATE  20 


OKIMATE  offers  you 
a  colorful  choice. 

The  OKIMATE  10. 

Color  that  brings  your  computer  to  life. 

The  OKIMATE  10  Personal  Color  Printer 
prints  in  over  36  dazzling  colors.  It's  com- 
pletely compatible  with  your  Atari®  and 
Commodore®  personal  computers.  Comes 
with  a  9  element  printhead.  And  prints  a 
speedy  240  words  per  minute.  For  crisp, 
clean  letters,  reports,  and  homework.  Ail 
this  and  beautiful  color  for  about  $200, 
Available  wherever  Atari  and  Commodore 
computers  are  sold. 


The  OKIMATE  20. 

The  color  printer  that's  all  business. 

The  OKIMATE  20  Personal  Color  Printer  is 
here  to  dazzle  everyone.  With  the  vibrant 
impact  of  over  100  sizzling  colors.  A  24  ele- 
ment printhead  that  delivers  letter  quality 
characters.  And  the  ability  to  print  270 
words  a  minute  for  reports,  financial  state- 
ments and  letters.  It's  completely  compat- 
ible with  IBM®  PC  and  PCjr.  And  for  all  you 
Apple  owners,  the  OKIMATE  20  works 
wonders  with  the  HE®  the  IIC®  and  the 
Macintosh®  It's  affordable  color  printing 
for  under  $268.  Available  at  computer 
dealers  everywhere. 


Atari  te  a  registered  tfademark  of  Atari  Inc 

Commodore  is  a  reeetered  tradenrark  ol  Commodore  Bu^ncss  Machines,  itic. 

Apple  HE,  Apple  IIC  and  Macin[osh  are  registered  Trademarks  of  Appfe  Computer.  Inc 
IBM  PC  and  IBM  PCjr  are  registered  trademarks  of  International  B'jsmess  Machines,  Int. 


an  OKI  AMERICA  company 
Mt.  Laurel,  NJ  08054 


Gone  are  the  glory  days 
for  Apple.  Because  Europe's 
most  successful  business  com- 
puter company  is  now  doing 
business  in  America. 

Introducing  Apricot.  A 
full  line  of  computers  specifi- 
cally designed  for  business. 

Not  adapted  to  it. 


In  fact,  the  facts  speak 
for  themselves. 

Apricots  are  elegant  and 
compact,  true  16-bit  comput- 
ers. They  employ  the  MS-DOS 
operating  system,  and  a  mini- 
mum of  256K  memory.  One  of 
our  models,  the  Apricot  Xi, 
boasts  an  incredible  1  Mega- 


byte of  memory,  and  features  a 
Winchester  hard  disk  with  20 
Megabytes  of  storage.  We  also 
have  models  that  feature 
speech  recognition,  full-size 
LCD,  and  icon  driven  menus. 
In  addition,  you  have  a 
choice  between  9"  or  12"  b/w 
or  10"  color  monitors.  All  of 
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which  have  a  higher  screen 
resolution  than  Apple. 

And  as  if  all  that  weren't 
enough,  all  of  our  models  can 
be  networked  from  the  moment 
you  take  them  out  of  the  box. 
They're  also  capable  of  run- 
ning thousands  of  business 
software  programs  like  Lotus7 


pfsf  and  d-Base  Ill.'Specially 
written  for  Apricot  on  3'/2 
inch  disks. 

Now,  how  do  you  like 
them  Apricots? 

Apricot,  Inc.,  3375 
Scott  Blvd.,  Santa  Clara,  CA 
95054. Call  800-227-6703, or 
in  California  800-632-7979. 


The  Apricot  Portable,  512K  RAM.  720K  diskette. 
80x25  line  LCD.  MS-DOS.  S2495. 


apricot 

-A-Were  changing  how 
American  business  do^es  business. 


AMAZING  DMSy 

NOW!  FULL  SIZE,  FULL  FEATURE,  LETTER  QUALITY  AT  ONLY  $353 


If  you  have  been  searching  for  a  letter 
quality  printer  you  have  probably  found 
the  flood  of  claims  and  counterclaims  to 
be  a  real  roadblock  in  your  search.  Not 
long  ago  we  were  in  the  same  position. 
We  tried  to  determine  which  daisy  wheel 
printer  had  all  the  features  our 
customers  wanted,  yet  would  not  set 
them  back  a  month's  salao'-  Recently 
several  manufacturers  have  introduced 
machines  that  had  features  we  were 
seaching  for.  After  a  thorough  assess- 
ment, we  eliminated  one  model  after  the 
other  for  lack  of  one  feature  or  another 
until  we  only  had  one  left, 

THE  RESULTS  ARE  IN 

We  found  the  printer  which  has  all  the 
features  anyone  could  want.  The  winner 
is  the  Aprotek  Daisy  ]  120,  a  real  heavy- 
duty  workhorse  printing  al  20  characters 
per  second.  The  manufacturer  is  Olympic 
Co.  Ltd.,  a  highly  respected  Japanese  firm. 
FEATURES  GALORE 

This  printer  has  it  all.  To  start  with,  it 
has  a  front  panel  Pitch  Selector  button 
with  indicators  which  allows  10,  12,  1.5 
characters  per  inch  (CPI)  or 
Proportional  Spacing.  There  is  a  Select 
(Online)  button  (with  indicator)  and  a 
Line  Feed  button.  You  can  also  set  Top- 
of-Form  or  Form  Feed  with  the  touch  of 
the  TOF  button.  Other  front  panel  in- 
dicators include  Power  and  Alarm. 

To  load  a  sheet  of  paper,  simply  place 
it  in  the  feed  slot  and  pull  the  paper  bail 
lever.  PRESTO!  The  paper  feeds  automati- 
cally to  a  I  inch  top  margin  and  the  car- 
riage aligns  to  the  selected  left  margin. 
In  this  manner,  each  page  can  have  iden- 
tical margins  automatically.  You  can  con- 
tinue to  compute  while  the 
Daisy  1120  is 


printing.  The  built  in  2K  buffer  frees  up 
your  computer  while  printing  a  page  or 
two  allowing  you  to  go  to  your  next  job. 
To  really  put  your  printer  to  work,  the 
Cut  Sheet  Feeder  option  is  great  for 
automatic  printing  of  those  long  jobs. 
Also  available  Is  the  adjustable  Tractor 
Feed  option.  Compare  our  option  prices! 
Best  of  all  the  Daisy  1120  is  quiet;  only 
57  dB-A  (compare  with  an  average  of 
62-65  dB-A  for  others). 

COMPLETE  COMPATIBILITY 

The  Daisy  1 120  uses  industry  standard 
Diablo®  compatible  printwheels.  Scores 
of  typeface  st>'les  are  available  at  most 
computer  or  stationary  stores.  You  can 
pop  in  a  10,  12,  15  pitch  or  proportional 
printwheel  and  use  paper  as  wide  as  14". 
At  15  CPI  you  can  print  16.') 
columns— great  for  spreadsheets. 

The  Daisy  1120  uses  the  Diablo 
Hytype  11'-  standard  ribbon  cartridges. 
Again  universally  available. 

Not  only  is  the  hardware  completely 
compatible,  the  control  codes  recognized 
by  the  Daisy  1120  are  Diablo  (530® 
compatible  (industry  standard).  You  can 
take  advantage  of  all  the  great  features 
of  word  processing  packages  like 
Wordstar'-'  ,  pfs;  Write®  ,  Microsoft 
VV'ord'-'  and  most  others  which  allow  you 
to  automatically  u.se  superscripts, 
subscripts,  automatic  underlining,  bold- 
face (shadow  printing)  and  doublestrike. 

The  printer  has  a  set  of  rear  switches 
which  allow  the  use  of  standard  ASCII  as 
well  as  foreign  character  print^vheels. 
Pajge  length  can  be  set  to  8,  11,  12,  or 
15",  The  Daisy  1 120  can  also  be  switch- 
ed to  add  automatic  line  feed  if  required. 


THE  BEST  PART 

When  shopping  for  a  daisy  wheel 
printer  with  all  these  features  {if  you 
could  find  one),  you  could  expect  to  pay 
$600  or  $700  dollars.  The  options  would 
add  much  more.  Not  now!  We  have  done 
our  homework.  We  can  now  offer  this 
printer  for  only  $353.  Order  yours  today! 

NO  RISK  OFFER 

Try  the  Daisy  1120  for  2  weeks.  If  you 
are  not  satisfied  for  ANY  reason  we  will 
refund  the  full  price— promptly.  A  full 
1-year  parts  and  iabor  warranty  is 
included, 

THE  BOTTOM  LINE 

Aprotek  Daisy  1120  (Order#1120)  $353 

w/standard  Centronics  parallel  interface 

and  2K  buffer. 

Options 

Auto  Cut  Sheet  Feeder  (#1110)  $188 

Tractor  Feed  (#1112)  $77 

Accessories 

8'  Cable  for  IBM  PC®  and  compatibles 

(#1103)  $26 

Interi'ace  with  cable:  *T:]-99IAA  (#106)  $66 

•  Apple  II  or  lie  (#1104)  $76 

•All  Commodore  (except  Pet)  (#1105)  $44 

•  All  Atari  (#1107)  $66 

.Shipping  is  $11— tips  continental  VS.\.  If  you  arc  in 
a  huny,  t!PS  lilue  or  Air  PBiVfi  Po.sl  (.second  day 
air)  is  Sa."].  C;iii;ida,  Ai,i.ska.  .^lt■^k■o  and  Hawaii  are 
i'M)  (airl.  Oilier  foreign  is  f&l  (air).  California 
rtsiik^nts  add  R%  tiis.  Prices  arc  c:usli  prices— VISA 
aiid  M/C  add  ?i%  to  total,  VVc  ship  prompll.v  uii 
m<mcy  orders,  cashier's  checks,  and  chai'fic  cards, 
Alkw  M-day  clearing  for  checks.  No  C.O.D.'s,  Pay- 
ment in  ILS  dollars  only. 

TO  ORDER  ONLY  CALL  TOLL  FREE 


(8-8  PST) 


(800)  962-5800  USA 
(800)  962-3800  CALIF. 

Or  send  payment  to  address  below: 
Technical  Information  &  Customer 
Service:  (805)  987-2454  (S-5  PST) 
Dealer  Inquiries  Invited 
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EDITORS  NOTES 


With  this  issue,  COMPUTE!  has  a  new 
look.  Several  adjustments  to  the 
way  we  put  together  the  magazine 
have  been  made  in  the  past  few 
months,  and  this  issue  implements  a 
process  which  started — on  the 
drawing  boards — last  year. 

The  personal  computer  market- 
place is  maturing  and  currently 
pausing  for  breath  after  several  fre- 
netic years  in  the  early  1980s.  Many 
manufacturers,  and  many  computer 
magazines,  have  retired  from  the 
scene.  There  are  approximately  one- 
fifth  as  many  hardware  and'  soft- 
ware companies  today  as  there  were 
a  year  ago. 

For  magazine  publishers,  this 
greatly  diminished  universe  of  ad- 
vertisers represents  a  challenge. 
Fewer  ads  necessarily  mean  fewer 
pages. 

While  there  are  dozens  of  pop- 
ular magazines  like  High  Fidelity 
and  Science  Digest  which  have  stabi- 
lized over  the  years  at  fewer  pages 
than  COMPUTE!  currently  prints, 
there  are  some  economies  which  we 
must  now  effect.  In  a  nutshell,  we 
want  to  continue  to  bring  our  read- 
ers an  equivalent  amount  of  infor- 
mation in  a  smaller  package  every 
month. 

Fortunately,  there  are  several 
ways  to  seek  painless  concision.  The 
first  thing  we  looked  at  was  the  size 
of  our  typeface,  the  "point  size." 


COMPUTE!  has  always  printed  larger 
characters  than  is  traditional  for 
magazines  of  its  class  and  audience. 
It  may  not  be  too  easy  to  detect,  but 
with  this  issue  we  have  slightly  re- 
duced the  type  by  one  point  in  most 
of  the  magazine  (one  point  equals 
1/72  inch).  "Reviews,"  "Readers' 
Feedback,"  and  the  "News  &  Prod- 
ucts" sections  have  been  reduced  by 
two  points.  These  are  gentle  reduc- 
tions and  bring  COMPUTEI's  type  in 
line  with  most  other  popular 
magazines. 

However,  even  though  there 
will  be  no  decrease  in  readability, 
this  change  results  in  an  average  of 
10  to  15  percent  more  information 
per  page. 

To  maintain  the  ease  with 
which  COMPUTE!  can  be  read,  we 
have  made  additional  changes  to 
our  layout.  For  one  thing,  we  have 
gone  to  a  primarily  three-column 
format,  replacing  our  previous  two- 
column  design.  Program  listings, 
too,  have  changed  from  two-  to 
three-column  format.  Aside  from 
contributing  more  words  per  page 
while  still  maintaining  easy  read- 
ability, these  adjustments  give  our 
design  staff  greater  flexibility  to  cre- 
ate layouts  with  more  variety  and 
eye  appeal. 


Finally,  we  have  requested  that 
our  columnists  write  within  one-  or 
two-page  limits  each  month.  With 
the  more  economical  type  size  and 
page  layout,  they  will  be  able  to 
deliver  excellent  information  each 
month  in  less  space.  Ultimately,  that 
frees  the  editors  to  increase  the  vari- 
ety and  content  of  COMPUTE!, 

In  a  not  entirely  unrelated  de- 
velopment, Philip  Nelson  has  ac- 
cepted the  position  of  assistant 
editor  of  COMPUTE!.  Philip  has  been 
on  our  staff  as  assistant  technical 
editor  for  six  months  and  has  proven 
to  be  an  excellent,  careful  editor  and 
a  fine  writer  as  well. 

We  feel  that  these  changes  to 
COMPUTE!  are  both  necessary  and 
positive.  These  adjustments  will 
allow  us  to  continue  to  bring  you  the 
greatest  number  of  high  quality  arti- 
cles and  programs  in  the  years  to 
come. 
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Eclucatioiial  Software 
That  Works: 


SpeU  It! 


Spell. 


Spell  expertly  1000  of  the  most  misspelled 
words.  Learn  the  spelling  rules,  improve 
with  n  exciting  activities.  Including  a 
captivating  arcade  gamel  Add  your  own 
spelling  words. 

ages  10  -  adult  /  2  dlsl<S;  S49.95 


wf^ 
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Matli  Blaster! 

Master  addition,  subtraction,  multiplication, 
division,  fractions,  decimals  and  percentages 
-  by  solving  over  600  problems.  Learn  your 
math  facts  with  a  motivating  activities, 
including  a  fast-action  arcade  game!  Add 
your  own  problems. 

ages  6  -  12  /  2  disks:  $49.95 


Word  Attack! 


Add  675  new  words  to  your  vocabulary  - 

with  precise  definitions  and  sentences 
demonstrating  usage.  Build  your  skills  with 
4  fun-filled  activities,  including  an  arcade 
game!  Add  your  own  words. 

ages  8  -  adult  /  2  diskS:  S49.95 


J^SSSXm 


Speed  Header  H 

Increase  your  reading  speed  and  Improve 
comprehension!  Six  exercises  designed  by 
reading  specialists  vastly  Improve  your 
reading  sl<ills.  Chart  your  own  progress  with 
35  reading  selections  and  comprehension 
quizzes.  Add  your  own  reading  materials. 

high  school,  college  &  adult  /  2  disks;  $69,95 
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The  Davidson 

Best  Seller  Tradition. 

For  your  Apple,  IBM  or  Commodore  64. 
Ask  your  dealer  today. 


Davidson. 


For  more  Information  call: 
In  California  call: 


(800)  556-6141 
(2131  373-9473 


Davidson  &  Associates,  Inc. 
6069  croveoak  Place  #12 
Rancho  Palos  verdes,  CA  90274 


NE  A 


Apple.  IBM  and  Commodore  64  are  trademarks  respectivel/  ol  Apple  Compgters.  Inc.  International'  Business  Mschinas  Corp.,  and  Commodore  Business  Machines,  Inc. 
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Volume  2 
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Trivia  Fever  is  absolutely  unique  —  it's  the  only  software  entertain- 
nnent  package  that  can  be  enjoyed  with  or  without  a  honne  com- 
puter! When  played  on  your  home  computer,  Trivia  Fever  is  a 
refreshing  alternative  to  all  those  shoot'em  up  games.  An  elected 
"Master  of  the  Game"  uses  the  computer  to  randomly  select  sub- 
ject categories,  handicap  players,  generate  questions  and  answers, 
keep  score  automatically,  and  more!  Instructive  by  its  very  nature. 
Trivia  Fever  can  be  enjoyed  by  up  to  8  individuals  or  teams.  And 
when  played  without  a  computer,  Trivia  Fever  has  all  the  best  fea- 
tures of  the  "popular"  trivia  games  plus  more  —  all  without  the 
cumbersome  board,  cards,  and  little  game  pieces.  You  can  play  in  a 
car,  on  vacation,  anytime,  anywhere!  And  Trivia  Fever  is  by  far  the 
best  Trivia  game  available  anywhere.  Here's  why: 

Trivia  Fever  offers  thousands  of  challenging  questions  in  7  inter- 
esting categories,  so  there's  something  for  everyone.  Each  category 
has  questions  with  3  lev- 
els of  difficulty,  which 
score  comparable  points. 
What's  more.  Trivia  Fever 
allows  players  to  HANDI- 
CAP all  those  so-called 
"trivia  experts"  three  dif- 
ferent ways,  giving  every- 
one a  chance  to  win.  And 
players  can  easily  control 
the  length  of  play  from 
quick  thirty  minute 
games  to  multi-hour  party  marathons! 

Trivia  Fever  is  unique,  entertaining,  educational,  and  most  of  all 
FUN.  And  at  $39.95,  Trivia  Fever  is  destined  to  quickly  become  the 
best  selling  software  entertainment  package  of  all  time.  There's 
even  a  $5  rebate  available  to  any  non-computer  users  who  return 
the  computer  diskette. 

Trivia  Fever  can  be  enjoyed  on  the  Commodore  64,  IBM  PC  &  PCjr 
and  compatibles,  Apple  II  series,  and  others.  So  don't  delay  Catch 
Trivia  Fever  at  your  favorite  software  retailer  today! 


For  additional  information  call  617-444-5224,  or  write  to: 


At  $39.95,  Trivia  Fever  comes  complete  with  Question 
and  Answer  Boole,  Category  Selector,  and  Tally  Sheets  to 
be  used  when  played  without  a  computer. 


4PSI 


P.O.  Box  533 
Needham,  MA  02194 

Trivta  Fever  is  a  trademark  of  Profeisioriai  So^are,  inc. 


READERS'  FEEDBACK 


The  Editors  and  Readers  of  COMPUTE! 


If  you  have  any  cjueslions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  COMPUTE!,  P.O.  Box  5406, 
Greefisboro,  NC  2740i.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Closing  The  Quality  Gap 

I  thought  letter  quality  was  a  term  used 
to  describe  typewriters  or  daisywheel 
printers.  Now  I  have  seen  many  dot- 
matrix  printers  claiming  to  be  letter 
quality.  How  is  this  possible? 

Alex  Cutrone 

Perhaps  you're  reading  loo  much  itito  the 
term  letter  quality.  It  simply  means  "good 
enough  to  use  in  a  business  letter."  Print- 
ing of  this  quality  has  traditionally  been 
equated  with  daisywheel  printers,  which 
create  crisp,  solid  images  by  striking  an 
inked  ribbon  with  little  character-shaped 
hammers,  just  like  a  typewriter. 

Dot-matrix  printers  use  a  differeyit 
technique,  forming  each  character  out  of 
many  tiny  dots.  The  printhead  contains 
several  small  pins  which  can  be  individ- 
ually fired,  pressing  the  ribbon  against  the 
paper  to  make  a  dot.  As  the  printhead 
moves  across  the  paper,  the  pins  are  rapid- 
ly fired  in  various  combinations  to  form 
different  characters. 

Early  dot-matrix  printers  left  notice- 
able gaps  between  the  character  dots,  giv- 
ing the  print  a  grainy  appearance.  As 
dot-matrix  technology  has  improved,  these 
gaps  have  been  all  but  eliminated,  produc- 
ing print  of  much  higher  quality. 

One  way  to  improve  print  quality  is  to 
double-strike  each  character.  Printing  a 
character  twice  in  the  same  spot  puts  more 
ink  in  each  dot;  since  the  dots  are  darker 
(and  a  little  fatter),  the  print  looks  better. 
Enhanced  printing  also  double-strikes 
each  character,  but  offsets  the  printhead 
very  slightly  (less  than  a  dot's  width)  before 
printing  the  character  a  second  time.  This 
fills  in  much  of  the  space  between  dots. 

Most  dot-matrix  printers  have  pins 
thai  are  round  in  cross  section.  Since  round 
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dots  don't  fit  neatly  together,  dot-matrix 
characters  tend  to  have  wavy  edges,  even 
in  enhanced  printing  modes.  To  give  the 
characters  crisper  edges  and  further  allevi- 
ate the  gap  problem,  some  manufacturers 
have  switched  to  pins  with  a  squarer  cross 
section.  However,  you  can  obtain  high 
qualify  print  from  a  machine  that  uses 
round  pins:  The  Apple  Imagewriter  is  one 
example. 

By  looking  closely,  you  can  still  dis- 
tinguish the  best  dot-matrix  print  from  so- 
called  letter-quality  print.  A  letter 
produced  with  a  Macintosh  and  an  Apple 
Imagewriter  doesn't  look  exactly  the  same 
as  one  typed  on  an  IBM  Selectric.  But 
that's  not  to  say  it  doesn't  look  good 
enough  for  "serious"  use.  Some  people 
would  say  that  the  Macintosh-generated 
letter  looks  more  impressive  than  one  done 
on  a  Selectric. 

The  fact  is  that  many  people  are  al- 
ready using  dot-matrix  printers  for  busi- 
ness correspondence.  Judged  by  that 
practical  standard,  the  better  dot-matrix 
printers  are  indeed  letter-quality  ma- 
chines. If  you're  thinking  of  purchasing  a 
printer,  see  "How  to  Buy  the  Right  Print- 
er" elseiohere  in  this  issue. 


Runaway  IBM  Keys 

My  new  PCjr  is  great  except  for  one 
irritating  feature.  When  I  rest  my  finger 
on  a  key,  the  computer  prints  a  long  line 
of  identical  letters.  When  I  press  the 
backspace  key  to  erase  the  extra  letters, 
it  repeats,  too.  How  can  I  stop  this  re- 
peating feature,  or  at  least  slow  it  down? 
Peter  Gliewell 

You  can  find  the  answer  to  this  and  many 
other  questions  about  IBM  Personal  Com- 
puters in  the  new  book  from  COMPUTE! 
Publications,  Mapping  the  IBM  PC  and 
PCjr  by  Russ  Davies.  Most  microcomput- 
ers supply  a  repeating  function  for  only  a 
few  editing  keys  such  as  the  cursor  controls 
or  space  bar.  The  PCjr  has  what  IBM  calls 
a  typamatic  keyboard:  Nearly  every  key 
repeats  when  you  hold  it  down.  (The' ex- 
ceptions are  keys  such  as  Enter,  which  you 
would  never  want  to  repeat.) 

Depending  on  your  tastes,  the  typa- 
matic function  is  either  a  godsend  or  a 
curse.  The  following  program  slows  down 


or  eliminates  your  PCjr's  typamatic 
function: 

100    PRINT    "Enter    a   niimber    to 

adjust  typamatic" 
lia  PRINT  "  0   -   Return  to  n 

ormal " 
120  PRINT  "  1   -   Increase  in 

itial  delay" 
130  PRINT  "  2   -   Half  rate  o 

f    repeat" 
140  PRINT  "  3   -   Both  1  and 

2  above" 
150  PRINT  "A   -   Typamatic  f 

unction  off" 
160  INPUT  XsIF  X<0  OR  X >4  GOT 

0  160 
170  X=Xt2:DEF  SE6=0 
1B0  Y=(PEEK(t<H4ae)  OND  (JiHFF- 

tcHE)  ) 

190  POKE  icH4aa,  (y  or  x) 

200  PRINT  "PCjr  typamatic  fun 
ction  now  adjusted" 

The  typamatic  function  uses  two  dif- 
ferent time  delays.  There  is  a  short  initial 
delay  between  the  time  you  first  press  a  key 
and  the  time  it  begins  to  repeat.  After 
repeating  begins,  there  is  atiother  slight 
delay  between  each  repetition.  The  pro- 
gram lets  you  adjust  either  or  both  of  these 
delays.  Note  that  the  typamatic  function 
affects  the  entire  keyboard:  If  you  turn  it 
off  none  of  the  keys — including  the  space 
bar  and  cursor  controls — will  repeat. 


Commodore  Disk  Patterns 

1  have  just  finished  reading  your  article 
about  pattern  matching  on  the  Commo- 
dore disk  drive.  In  the  last  paragraph  of 
the  section  labeled  "New  Patterns,"  you 
talk  about  loading  just  the  disk  title,  its 
ID,  and  the  number  of  blocks  free  from 
the  directory.  Your  suggestion  is  to  use  a 
filename  not  on  the  disk,  such  as 
0:#$&!%.  I  have  found  an  easier  way  : 
Instead  of  the  usual  command  LOAD 
"$",8,  use  LOAD  "$$",8.  On  a  disk  with 
a  large  number  of  programs,  you  cannot 
use  this  twice  in  a  row  or  you'll  get  a 
FILE  NOT  FOUND  ERROR.  If  you  load 
the  directory  normally  (LOAD"$",8) 
after  using  L0AD"$$",8  you  may  use 
the  latter  command  again. 

George  Sherman,  Jr. 

You've  stumbled  across  a  curious  aspect  of 
Commodore's  disk  directory  system:  a  few 
words  of  explanation  might  be  in  order. 
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Smart  move,  buying  a  computer. 
To  be  sure  your  computer  doesn't  under- 
achieve, put  it  on  the  Gold  Standard. 
Maxell.  An  industry  leader  in  error-free 
performance.  There's  a  Maxell  Gold 
Standard  floppy  disk  for  virtually  every 
computer  made.  Each  comes  backed  by 
a  lifetime  warranty.  Maxell.  To  keep  your 
computing  at  the  top  of  the  class. 
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PC  iS  a  irademark  ol  IBM  Corp 


Maxell  Corporation  of  America,  60  Oxford  Drive,  Moonachie,  NJ.  07074 


First:  "S"  is  a  legitimate  filename.  Try 
writing  a  short  program  and  then  saving  it 
with  SAVE  "0:$",8.  No  problem;  the  file 
will  save  without  any  errors.  You'll  find  it 
in  the  directory,  but  note  that  LOAD  "$",8 
brings  in  the  directory,  not  the  program. 
But  you  can  still  get  the  program  ivith 
LOAD  "0:S",S. 

Second:  You  may  pattern-match  with- 
out using  the  drive  designator,  although 
this  will  give  you  trouble.  If  you  load  a 
directory  with  LOAD  "SP"\8,  you  will  get 
all  files  starting  with  the  letter  P.  It's  much 
better  to  command  LOAD  "$0:P*",8, 
which  specifies  the  drive  number.  The  rea- 
son for  this  is  odd,  and  relates  to  the  fact 
that  the  1541  DOS  (Disk  Operating  Sys- 
tem) software  was  developed  from  that 
found  in  Commodore's  older  4040  dual- 
drive  unit.  Single-slot  Commodore  drives 
don't  know  that  they  are  single;  they  sus- 
pect that  there's  a  second  drive  around 
somewhere  (drive  1,  which  doesn't  exist). 
So  if  you  use  type  LOAD  "$P"',8,  the  disk 
drive  will  correctly  get  the  directory  from 
drive  0,  and  then  try  for  a  directory  from 
nonexistent  drive  1!  It  won't  get  it,  of 
course,  but  it's  left  in  "drive  1  mode,"  and 
the  next  job  it  gets  without  a  drive  specifi- 
cation will  try  drive  1  first. 

Thus,  if"  you  enter  LOAD  "$P*",8 
again,  the  unit  will  go  to  drive  1,  find  no 
directory,  and  report  FILE  NOT  FOUND. 
This  won't  happen  if  you  command  LOAD 
"$0:P*",8  since  drive  0  is  forced. 

Let's  put  these  two  together.  When 
you  type  LOAD  "$$",8  you  are  really  tell- 
ing the  computer  to  look  for  a  file  with  a 
name  of  "S".  Normally,  it  won't  exist,  so 
you'll  get  only  the  disk  header  and  block 
count;  but  if  you  saved  a  file  with  that 
name  as  suggested  above,  you'll  see  it  in 
the  directory. 


Illogical  Apple  Logic? 

In  the  August  1984  issue  of  compute!, 
the  ANDing  and  ORing  of  numbers  was 
explained  in  the  Readers'  Feedback  sec- 
tion. 1  tried  doing  some  of  the  examples 
on  my  Apple  He  but  I  never  got  the 
result  I  expected.  For  instance,  I  POKEd 
the  number  15  into  location  7,  then 
typed  POKE  7,PEEK{7)  OR  240.  When  I 
checked  location  7  by  typing  PRINT 
PEEK(7),  the  result  was  1.  This  also  hap- 
pened when  I  tried  to  AND  a  number. 
Why  is  this  happening? 

Michael  Kurtz 


On  most  computers,  the  BASIC  statement 
PRINT  240  OR  35  gives  the  result  255. 
However,  Apple  (and  Atari)  computers 
have  a  different  way  of  doing  the  logical 
operations  AND  and  OR. 

Instead  of  doing  a  separate  AND  or 
OR  for  each  bit  of  the  two  numbers.  Apples 
do  only  one  logical  operation,  treating  each 
of  the  numbers  as  a  single  logical  value.  A 
number  whose  value  is  zero  is  considered 
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logically  false.  Any  other  value  is  treated 
as  true. 

The  result  of  an  OR  operation  is  0 
only  if  both  of  the  numbers  are  0,  An  AND 
operation  gives  a  result  ofl,  meaning  true, 
if  neither  of  the  numbers  is  0.  Apple's 
representation  for  true  is  also  unusual. 
Most  computers  use  —  1  to  represent  a  true 
value,  but  Apple  has  chosen  to  use  1. 

None  of  this  is  important  in  the  situa- 
tion where  logical  operators  are  used  the 
most,  conditional  statements  such  as: 

10  IF  A<B  AND  A<C  THEN  PRINT  "A 
IS  BIGGEST" 

Here,  the  Apple  behaves  the  same  as 
any  other  computer.  The  difference  matters 
only  if  you  want  to  operate  on  individual 
bits  of  a  variable  or  memory  location. 


Atari  Tape  Tribulation 

I  recently  got  an  Assembler  Editor  car- 
tridge for  my  Atari  800.  I  tried  out  the 
example  programs  in  the  manual  and 
followed  Atari's  instructions  on  entering 
source  code  and  assembling  to  cassette 
using  ASM„#C:.  After  replacing  the  As- 
sembler  Editor  cartridge  with  BASIC,  I 
was  not  able  to  retrieve  the  machine 
language  program  with  CLOAD  as  spec- 
ified. I  tried  several  things  such  as 
ENTER#C:,  but  nothing  worked.  When 
I  did  PRINT  PEEK(1536),  I  always  got  0. 
Any  suggestions?  My  temporary  alter- 
native is  to  convert  the  hexadecimal  ob- 
ject code  from  the  ML  program  into 
decimal  DATA  statements  using  a 
BASIC  program. 

Doug  Wilson 

The  manual  is  incorrect.  You  cannot  use 
CLOAD,  ENTER,  or  any  simple  Atari 
BASIC  command  to  read  machine  language 
from  tape.  Your  alternative  is  actually  the 
best  way  to  include  short  machine  lan- 
guage routines  in  a  BASIC  program.  How- 
ever, there  is  a  way  to  read  machine 
language  object  files  produced  by  the  As- 
sembler Editor.  Unfortunately,  when  as- 
sembling to  cassette  the  tape  keeps  going 
during  the  first  pass  of  the  assembly,  creat- 
ing an  excessively  long  leader  tone.  This 
makes  the  tape  quite  difficult  to  read. 

Instead  of  assembling  directly  to  tape, 
assemble  to  memory  and  use  the  command 
SAVE  #C:<start,end  {where  start  and 
end  correspond  to  the  hexadecijnal  start- 
ing and  ending  addresses  of  your  program). 
This  will  save  the  object  code  from  memory 
to  cassette.  In  BASIC,  you  can  use  this 
program  to  read  and  POKE  the  tape  pro- 
gram into  memory: 

100  OPEN  #1  ,4, 0,  "C:  " 
110  GET  #1 ,fl: GET  «1 , A 
120  TRAP  140!GET  #l,A!eET 
#I,B:BES=A+256»B:GET 
#l,fl!SET  #l,BsFIN=A+ 

256tB 
130  FDR  I=BEG  TG  FINsBET 

#1  , A! POKE  I , A: NEXT  I ! 

GOTO  120 
140  CLOSE  «1:TRAP  40000 


This  program  will  also  load  a  disk 
object  file  if  you  change  the  device  specifi- 
cation in  line  100  and  add  the  appropriate 
filename.  Beware  of  loading  ML  programs 
that  would  overwrite  the  BASIC  program. 

1540  Disk  Drives  With  A  64 

1  had  a  VIC-20  with  a  1540  disk  drive. 
Recently  1  decided  to  buy  the  Commo- 
dore 64.  This  leaves  me  with  a  big  prob- 
lem, which  I  hope  you  can  help  me  with. 
Will  the  1540  work  with  the  64?  So  far  I 
haven't  been  able  to  get  it  to  work. 

Dave  Lester 
The  best  long-term  solution  is  to  see  if  your 
dealer  can  get  you  an  upgrade  ROM  chip 
that  will  convert  your  1540  to  a  1541. 

In  the  meantime,  you  should  be  able 
to  save  to  disk  without  trouble.  To  load, 
you  can  use  a  trick  to  establish 
communications: 

Instead  of  typing  LOAD  "file- 
name",8  to  bring  a  program  into  the  64, 
type  POKE  53265,43:  LOAD  "file- 
name",8.  The  screen  will  go  blank,  but  the 
file  should  load  correctly.  When  everything 
stops,  type  POKE  53265,27  (you'll  have 
to  do  this  without  being  able  to  see  what 
you're  typing)  and  the  screen  will  return  to 
normal. 

The  problem  arises  because  the  64  is 
not  able  to  transfer  data  to  and  from  the 
drive  as  fast  as  the  VIC-20  can.  The  64  is 
slower  because  more  time  is  required  to 
maintain  its  1000-character  video  display, 
as  opposed  to  the  VlC's  506-character  dis- 
play. When  its  screen  is  blank,  the  64 
operates  at  the  same  speed  as  the  VIC-20, 
and  loading  can  proceed  without  timing 
difficulties. 

Garbage  Collection  And 
Backups 

I  have  seen  several  references  to  "gar- 
bage collection"  in  connection  with  the 
operation  of  the  Commodore  64,  but  I 
have  not  seen  the  same  term  used  in 
connection  with  operation  of  the  Apple, 
Atari,  or  IBM  computers.  Is  the  garbage 
collection  routine  peculiar  to  the  Com- 
modore, or  does  it  exist  on  these  ma- 
chines as  well? 

1  have  also  seen  several  programs 
advertised  for  the  64  which  claim  to 
allow  you  to  copy  an  entire  disk.  This 
command  exists  in  DOS  on  the  IBM  and 
Atari  machines.  Do  these  programs  have 
some  other  purpose?  Similarly,  some  of 
the  software  for  the  64  says  it  will  allow 
you  to  copy  files  from  one  disk  to  anoth- 
er. Does  this  command  also  not  reside  in 
DOS  on  the  64? 

Pat  O'NeU 

The  mysterious-looking  term  garbage  col- 
lection has  to  do  with  strings.  Strings  are 
tricky  for  a  computer  to  handle.  The  com- 
puter must  set  aside  enough  room  in  mem- 
ory for  all  the  strings  declared  in  a 
program.  The  length  of  a  string  can  change 


setpfi 


Mix  and  match  the  hard- 
ware peripherals  of  your 
preference.  Increase  your 
programming  power  with 
easier-to-use  disk  commands 
and  machine  language.  All 
with  one  plug-in  module. 

•  lets  you  use  almost  any 
combinalion  of 
Commodore-compatible 
floppy  or  hord  disk  drives 
and  Centronics-type 
parallel  printers 

•  all  interfoce  functions  and 
device  allocations  are  set 
by  switches  on  the 
BusCard  II  module;  errors 
due  to  software  incom- 
patibility are  eliminated 

•  includes  BASIC  4.0,  the 
same  powerful  language 
used  in  Commodore's  top- 
of-the-line  business  com- 
puters, plus  a  machine 
language  monitor 


Double  your  screen  capacity 
when  using  your  favourite 
Batteries  Included  software 
programs.  B.!.-80  turns  your 
40-column  screen  into  a 
crystal-clear,  high-visibility 
80-column  display.  Works 
with  PaperCiip  word- 
processor  and  The  Consul- 
tant database  manager- 
maximum  readability  and 
minimum  eye-slrain,  even 
with  a  screen  full  of 
characters.  It's  the  fast,  easy, 
plug-in  way  to  get  twice  the 
amount  of  data  onto  your 
monitor  screen.  And  B.I.-80 
olso  gives  you  the  easier-to- 
use  disk  commands,  with 
BASIC  4.0  longuage  built 
right  into  the  module. 

•  fully  self-initializing,  no 
commands  to  enter;  just 
plug  B.I.-80  into  the  car- 
tridge slot  and  you're 
ready  to  run 

•  switch  back  and  forth 


between  80  and  40  col- 
umn display  at  any  time 
completely  eliminates 
snow,  fuzziness,  hashing 
and  interference 
easy-to-install  module 
incorporates  highest 
quality  hardware  com- 
ponents throughout;  one- 
year  manufacturer's  war- 
ranty is  standard 
comes  complete  with  80- 
cotumn  operating  system 
and  comprehensive 
documentation,  including 
full  description  of  BASIC 
4.0  commands 
use  with  Commodore 
1701  and  1702  color 
monitors,  or  any 
monochrome  video 
monitor 

NEW!  4 


•B.I.-80  Column 
Adaptor  coming  soon  for 
Atari  XL  computers) 


Use  the  printer  of  your 
choice  with  your  Com- 
modore computer— just  plug 
in  this  compact  module,  and 
you're  instontiy  compatible! 
Take  advantage  of  today's 
high-speed,  high-qoality 
printers  with  the  B.I.  Printer 
Interface. 

•  works  with  any 
Centronics-type  parallel 
printer,  which  includes 
almost  all  major  printers 
on  the  market 

•  completely  self-contained 
and  ready  to  run;  no 
extras  to  boy,  no  hard- 
ware or  software  modifi- 
cations to  printer  or 
computer  ore  required 
oil  print  functions  are  con- 
trolled by  switches  on  the 
module;  just  set  them 
once,  and  never  worry 
about  it  ogain 


USE  THESE  TOOLS  WITH  P^perCHp,  nm..nisuli;uii,  AND  OTHER  HARD-WORKING,  HIGH-QUAUTY  SOFTWARE  PROGRAMS  FROM  BAHERIES  INCUJDID 


186  Queen  Si.  V/esI 
Toronto,  Ontario, 
Canada  M5V  IZl 
f416;596-M0S 


"The  Energized  Sbftwaf^'Company!'' 

WRITE  FOR  A  FULL  COLOR  BftOCHURE 
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How  to  mid  xrnmmxcWs. 


Everyone  has  to  pay  their  bills, 
aiid  nobody  likes  to  do  it. 

You  can  keep  file  folders  dill  of  bills, 
clrawere  stuffed  with  gi'oceiy  receipts, 
envelopes  brimming  with  cancelled 
checks,  and  at  the  end  of  the  month, 
it  still  takes  hours  to  figure  out  just 
where  your  money  has  gone.  Not  to 
mention  how  long  it  takes  to  straight- 
en things  out  at  the  end  of  the  year. 

Well  after  years  of  financial 
consulting,  iVe  discovered  a  way  to 
a\'oi(i  paying  \'our  bills:  let  an  A]}ple"  II 
Personal  Computer  pa\^  them  for  \'ou. 

There  are  several  advantiiges  to 
letting  an  Apple  handle  \'our  finances. 

It  will  save  you  time. 

It  will  organize  eventhing. 

Itwill  tell  you,  at  a  glance, 


"The  other  day  a  prominent  politician 
in  the  executive  branch  of  our  government  phoned 
me  up. 

'Alan',  he  said  to  me, 'the  budget  is  a  mess! 

'No  joke!  I  said. 

'Not  that  budget!  the  prominent  politician 
continued.  'My  budget.  My  checkings  overdraw-n. 
They're  threatening  to  disconnect  my  phones.  I  even    \Xith  software  programs  like  The  Home  Accountant" 


exactly  what  is  going  on  with  your  money 

It  will  pay  your  bills,  and  never  send  \'0u  any 
And  no\y  I'd  like  to  turn  the  page  over  to  those 
nice  people  at  Apple,  who  will  explain,  in  their  owti 
excRiciating  detail,  just  what  Im  talking  about!' 

The  A|}ple  II  and  the  Home  Budget. 


got  into  a  shouting  match  with  my  wife 
when  I  tried  to  lay  off  the  servants! 

'Civil?' 

'Not  ver)^  And  I  think  I'm  about  to 
be  audited.  What  w^ould  I  show  them? 
Vi[Q  keeps  receipts  for  emb^iss)^  parties?' 

At  this  point,  we  were  discon- 
nected. And  although  it  wiis  too  late 
to  teach  proper  money  management 
to  this  prominent  politician,  there  is 
a  lesson  all  of  us  can  learn  from  his 
misfortune. 


iiiyimr  too-  mlh  sofamn'jmigritms  Ilk'  Ddlurs  &  Se/ise.  77*'  Hmm 
Aramlim!.  mul  Tax  I'nfvin'r. 


and  Dollars  &  Sense!"  the  A{iple  II  makes 
it  e;isy  to  set  up  household  books.  First, 
it  will  ask  you  some  questions  about  your 
home  finances.  Like  how  much  mone)' 
you  bring  in  each  month,  how^  much  rent 
you  pay,  and  wiiether  you  owe  money 
to  credit  card  companies,  mortgage 
holder,  or  any  other  suriy 
charactei's.  Then,  it  will  jisk 
you  to  enter  some  of  the 
bills  you  receive  each  month 
whose  prices  may  vaiy: 


phone,  utilities,  and  the  like.  Then,  it  will  ask  you 
where  you  keep  your  money  and  for  the  numbei's  of 
your  various  checking  and  savings  accounts. 

That's  really  all  tliere  is  to  it.  After  that,  an 
Apple  n  can  automatically  write  checks  for  all  your 
fixed  expenses  each  month.  It  will  also  tell  )'ou 


iiiiiiiiil 


77if  is  aifAppienKXiem:  7H 

stocks  hvltlxmi:  l!  dLw  immfctf  wur^ppk  II  tn  a  utsillh  n/iiifernuiliim  .vnices.  like  THE 

SOi'KC'l:'^  atiil  CompiAm'' 


using  an  Apple  modem,  you'll  gain  instant  access  to 
financial  news  sources  like  TheWall  Street  Journal, 
what  other  bills  you  can  be  expecting,  and  when  you   Barrom,  and  the  Dow  Jones  News/Retrieval*  service, 
enter  their  costs,Vn  Apple  11  will  pay  them,  too.  Find  out  what  they've  been  saying  on  Wall  $treet 

An  Apple  II  will  see  to  it  that  your  checkbooks    Week.  And  in  most  cases,  get  up  to  the  minute  price 


VourScrib^  color/ ^pbics  printer,  mi  am 
imlomaticalfy  priitl  oalymram  checks— 
lint  III  meiitmi!  n^mrk  fxifiers.  alnwst  mtythiiiji. 
FAiefil  muiiiy. 


remain  balanced,  and  that  you'll  know  when  your 
expenses  are  about  to  exceed  your  income.  It  can 
even  help  you  plan  to  buy  a  new  car.  Or  a  home. 
Or  a  fur-lined  boat,  if  your  budget  permits. 

How  to  avoid  your 
banker. 

After  the  Ajiple  II  writes 

your  checks,  it  can  call 

your  bank  with  the  help 

ofyour  telephone  and 

an  Apple  modem.  And 

faster  than  a  teller  can 

say  "Next  window, 
please"  you  can  find  out  all  your  balances,  enter  de- 
posits, see  what  checks  have  cleared,  transfer  money 
fi-om  one  account  to  another,  and  even  pay  off 
some  ofyour  credit  cm'ds  and  other  bills  electroni- 
cally—without ever  witing  a  check. 

So  the  only  time 
you'll  have  to  go  to  the 
bank  is  when  vou 
want  to  visit  with  your 
money  personally 

'lyri   ■    1  1  ltcantim!Uig,e)'aireiUireslockp(Mp!iouitl}pmffranisiikslMrJoiimlm'estmsWori!!Jx>[>' aijdCkvk^  .v-  ».   «.   11  1    *. 

WniCn,  Wnen        MiiiOimpimy'sVieFujmltiT'lUwieiaiJMrmniMs going m  in )mr bank m-omit'  iningS  tOtally  UUrClat- 

done  in  moderation,  we  can  recommend  most  highlv  ed  to  taxes  or  this  ad.  So  there's  no  telling  how  far 

TTieAppleUandmakingmoney      ^  "^ftr^  nabou.cow.it.  And  what  if, 

An  Apple  II  can  do  wondrous  things  for  your  person-    after  all  of  this,  you  still  have  some  money  left  over? 
al  finances.  With  several  different  software  programs,  Congratulations.  You're  doing  a  lot  better  than 

you  can  become  your  own  stockbroker  Again,  by        the  government." 


quotes  on  over  six  thousand  stocks,  options,  and 
other  securities. 

An  Apple  II  lets  you  buy  and  sell  securities  right 
in  vour  home  or  ofiice,  at  the  moment  vou  want  to 
make  the  trade.  It  automatically  updates  your  port- 
folio and  gives  you  detailed  holding  reports.  It  even 
produces  charts  and  gi'aphs,  so  you  can  quickly  see 
how  you  and  your  investments  are  doing. 

A  little  tax  relief. 

If  you  become  perturbed  everytime  the  subject  of 
doing  taxes  comes  up,  an  i^ple  II  can  do  them  for 
)'ou  with  programs  like  Forecast™ and  Tax  Pi'eparer™ 

It  can  store  your  records,  plan  for  the  next 
year,  and  caladate  your  taxes. 

You'll  be  alerted  to  pa\Tnente  you've  made  over 
the  year  that  may  be  tax-deductible.  It  even  keeps 
year-round  records,  automatically  updating  totals 
and  making  corrections  for  you.  It  will  even  print 

out  completed  tax 
forms  that  the  I.RS. 
will  accept. 

.^nd  it  can  do 
about  10,000  other 
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as  a  program  runs,  causing  memory  alloca- 
tion problems.  Some  BASICs,  such  as  Atari 
BASIC,  tackle  this  problem  by  making  you 
DIMension  every  string  before  using  it  for 
the  first  time.  This  sets  the  maximum 
length  of  the  string.  Atari  strings  always 
end  up  at  a  single  spot  in  memory  after  the 
program  starts,  and  do  not  move. 

Microsoft  BASIC  uses  a  different  trick. 
When  a  string  is  created,  the  actual  string 
is  stored  at  the  top  of  BASIC  memory.  The 
string's  name,  ler^gth,  and  a  pointer  to  the 
address  of  the  string  are  stored  after  your 
program  in  memory.  If  you  change  the 
string,  the  new  string  is  copied  to  the 
current  top  of  memory  (below  any  other 
strings)  and  the  pointer  is  changed.  Sooner 
or  later,  the  strings  fill  all  memory  from  the 
top  until  they  collide  with  variables,  ar- 
rays, or  the  end  of  your  program. 

This  is  where  garbage  collection  steps 
in.  A  garbage  collection  routi)ie  in  BASIC 
looks  at  each  string,  finds  the  string  data, 
and  repacks  each  string  back  to  the  top  of 
memory,  discarding  unused  strings  along 
the  way.  This  can  take  a  while.  It's  difficult 
to  predict  just  when  garbage  collection  will 
occur,  and  when  it  does,  the  machine  ap- 
pears to  lock  up  (in  some  cases,  for  more 
than  20  minutes). 

Garbage  collection  is  also  a  problem 
on  the  Apple  and  IBM  machines  (and  on 
most  Microsoft  BASICs),  but  you  can  re- 
strict the  size  of  string  space  on  the  IBM. 
This  forces  garbage  collection   to  occur 
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more  frequently,  and  since  the  size  of  the 
string  buffer  is  small,  garbage  collection 
never  takes  very  long.  If  an  IBM  program 
uses  a  lot  of  strings,  it  is  sometimes  neces- 
sary to  expand  the  size  of  the  string  area, 
with  the  resulting  garbage  collection 
problem. 

Your  question  about  Disk  Operating 
Systems  (DOS)  points  out  some  differences 
between  the  way  a  Commodore  computer 
implements  DOS  and  the  method  used  by 
almost  every  other  computer.  Most  com- 
puters use  a  RAM-resident  DOS  to  control 
the  disk  drive,  but  Commodore's  DOS  is  in 
ROM  within  the  drive  itself  While  this 
saves  user  memory,  it  creates  some  prob- 
lems. The  64  and  the  1541  drive  are  like 
separate  computers,  and  must  communi- 
cate over  a  slow  serial  bus.  Commands  are 
sent  to  the  drive  to  scratch,  rename,  for- 
mat, etc.  There  is  a  built-in  copy  command, 
but  it  can  only  copy  a  file  to  the  same  disk. 
The  drive  has  no  way  to  directly  communi- 
cate with  another  disk  drive,  so  the  com- 
puter must  act  as  a  go-between. 

The  programs  you  mention  let  you 
copy  files  or  disks  by  reading  the  disk  into 
computer  memory,  then  copying  from 
memory  to  another  disk.  Since  Commodore 
DOS  is  in  the  disk  drive,  there  are  no  built- 
in  programs  in  the  64  to  perform  transfers 
between  disks — hence  the  need  for  the  pro- 
grams you  mention.  Many  disk  duplicators 
also  try  to  defeat  copy-protection  schemes, 
since  it's  otherwise  impossible  to  back  up 
commercial  software. 

IBM  Hidden  Flies 

I  have  an  IBM  PC/XT  with  one  floppy 
disk  and  a  10-megabyte  hard  disk. 
When  I  ran  CHKDSK  on  both  drives,  the 
computer  said  I  had  two  hidden  files 
taking  up  about  22K.  What  are  hidden 
files,  and  are  they  accessible? 

Dennis  Heckman 

When  you  power  up  an  IBM  personal  com- 
puter, it  performs  a  complex  series  of 
housekeeping  operations  before  turning 
the  system  over  to  you.  This  process 
usually  involves  loading  two  hidden, 
read-only  system  files  named  IBMBIO- 
.COM  and  IBMD0S.COM  from  disk. 
These  are  machine  language  programs 
which  the  system  needs  to  operate 
correctly. 

IBMBI0.COM  is  an  extension  of  the 
PC's  operating  system — called  BIOS  for 
Basic  Input/Output  System— most  of 
which  is  permanently  stored  in  ROM 
(Read-Only  Memory).  The  IBMBI0.COM 
program  loads  and  executes  when  the  sys- 
tem boots  up,  to  initialize  input/output 
devices  and  perform  other  system  tasks. 
This  IS  done  to  correct  errors  (and  there  are 
some)  permane?rtly  "wired  into"  the  ROM 
BIOS,  and  to  allow  for  new  devices  such  as 
the  PCjr's  cartridges.  IBMB10.COM  is 
about  3.5K  in  length. 

The  PC's  DOS  (Disk  Operating  Sys- 
tem) is  a  separate  program,  roughly  19K 


long,  for  manipulating  disk  data.  Since 
none  of  DOS  is  stored  in  ROM,  it's  also 
necessary  to  load  the  IBMD0S.COM  pro- 
gram from  disk  and  install  it  in  memory 
when  the  system  boots  up.  After  initializ- 
ing the  system  for  BIOS,  IBMBI0.COM 
moves  IBMDOS.COM  into  the  correct 
memory  area  and  transfers  control  to  DOS, 
which  in  turn  does  its  own  initialization 
before  turning  the  system  over  to  the  user. 

Files  ending  in  .COM  are  system  files 
(distinguished  from  user  files  which  you 
can  alter  at  will).  Since  IBMBI0.COM  and 
IBMD0S.COM  are  critical  to  normal  oper- 
ation, they're  made  invisible  to  user  com- 
mands such  as  DIR  (disk  DIRectory).  Out 
of  sight,  out  of  mind— if  you  don't  knoiv  a 
file  exists,  you'll  be  less  likely  to  erase  it. 
Both  files  are  further  protected  by  making 
them  read-only:  If  you  can't  write  to  a  file, 
you're  less  likely  to  corrupt  it  by  accident. 

It  is  possible  to  access  system  files. 
After  each  filename  in  the  disk  directory  is 
a  file  attribute  byte  which  defines  the  file 
type.  Using  the  DEBUG  program  described 
in  your  DOS  manual,  you  can  read  the  disk 
directory,  change  a  file's  attribute  byte  to 
remove  its  protective  attributes,  and  write 
the  modified  sector  back  to  the  disk.  How- 
ever, few  users  would  have  any  reason  to 
rewrite  a  system  file,  and  the  risk  of  inad- 
vertent error  is  enormous.  At  best,  the 
error  might  crash  the  system;  at  worst,  you 
might  lose  an  entire  disk  of  data.  If  you 
want  to  try  modifying  a  system  file,  prac- 
tice on  a  disk  that  doesn't  contain  any 
important  data.  You  can  find  a  detailed 
discussion  of  system  files  and  the  boot 
process  in  Chapter  1  of  COMPUTEI's 
Mapping  the  IBM  PC  and  PCjr  by  Russ 
Davies. 

Commodore  Monitors 

What  is  the  difference  between  a  Com- 
modore 1701  and  1702  monitor? 

Andy  Nagai 

There  is  no  appreciable  difference  between 
these  monitors.  The  1701  model  changed  to 
1702  when  Commodore  began  using  a  dif- 
ferent picture  tube  supplier  in  late  1983. 
Cosmetically,  it's  nearly  impossible  to  tell 
the  two  apart.  They're  virtually  identical 
in  appearance,  and  the  electrical  connec- 
tions appear  to  be  the  same  in  both  models. 
We  have  a  number  of  both  models  here  at 
COMPUTE!,  and  we've  noticed  that  the  reso- 
lution appears  slightly  sharper  on  the 
1702s,  but  this  is  only  because  they're 
newer  than  the  1701s.  (The  color  on  a 
monitor  gradually  fades  after  prolonged 
use.) 

Commodore  also  makes  the  141  Color 
Monitor,  essentially  a  1702  with  a  charcoal 
gray  color  designed  to  match  the  Flus/4 
and  Commodore  16.  It's  compatible  with 
the  VIC-20  and  64.  Commodore's  newest 
monitor  entries  are  the  1901  Monochrome 
Monitor  and  the  1902  RGBI /Composite 
Monitor.  Each  was  announced  at  the  Win- 
ter CES  in  support  of  the  Commodore  128, 
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Tlie  Commodore  128: 
A  Hands-On  Report 


Tom  Q  Haifhill.  Editor 


Commodore's  new  three-in-one  machine,  the  Commodore  128  Personal  Computer, 
should  be  hitting  store  shelves  in  June.  In  mid-March,  COMPUTE!  visited  Commodore's 
U.S.  headquarters  in  West  Chester,  Pennsylvania  to  more  closely  examine  the  128, 
which  was  announced  at  the  Winter  Consumer  Electronics 
Show  in  January  (see  "The  Next  Generation:  New 
Computers  at  the  Winter  CES,"  April  1985). 
Although  a  few  specifications  were  not  final- 
ized, we  found  the  128  to  be  a  versatile 
machine  with  one  of  the  most  power- 
ful BASIC  programming 
languages  ever  offered 
in  a  microcomputer. 
Here's  our  report.  ^^  ^^p      a  .js^ 
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One  of  the  most  imitated  trends  in 
persona!  computing  lately  has 
been  "integrated  software" — prod- 
ucts that  are  actually  three  or  more  pro- 
grams in  one,  like  Lotus  1-2-3. 

Now  Commodore  is  introducing  a 
fresh  twist — integrated  hardware.  With  the 
Commodore  128  Personal  Computer,  es- 
sentially Commodore  is  wrapping  up  three 
computers  in  one  box  to  sell  for  under  $300 
retail.  The  deceptively  small  package 
contains: 

1.  A  standard  Commodore  64  with  64K 
of  Random  Access  Memory  (RAM)  capable 
of  running  virtually  all  existing  64  soft- 
ware— estimated  at  6,000  to  10,000  pro- 
grams, mostly  home  and  educational. 


2.  An  enhanced  Commodore  64  with 

128K  of  RAM  and  an  extremely  powerful 
new  BASIC  that  almost  makes  PEEK  and 
POKE  obsolete. 

3.  A  Z80-based  128K  computer  de- 
signed to  run  existing  software  written  for 
the  CP/M  (Control  Program  for  Microcom- 
puters) operating  system — at  least  10,000 
programs,  mostly  business/professional. 

Expandable  to  512K  with  a  RAM  disk 
option,  the  Commodore  128  also  works 
with  all  Commodore  64  peripherals  as  well 
as  a  new  line  of  accessories,  such  as  the 
much  faster  1571  disk  drive.  Rounding  out 
the  package  are  such  features  as  80-column 
video  in  the  128K  and  CP/M  modes,  RGB 
(red-green -blue)  high-resolution  video  out- 
put, and  all  the  same  ports  and  interfaces 
found  on  the  Commodore  64, 
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Before  the  Commodore  128  was 
announced  at  the  Winter  CES, 
rumors  indicated  it  would  sim- 
ply be  an  expanded  Commodore  64. 
Even  after  it  was  unveiled,  some 
people  described  it  as  a  CP/M  com- 
puter with  a  Commodore  64  emula- 
tion mode. 

But  the  Commodore  128  truly  is 
the  near-equivalent  of  three  com- 
puters in  a  single  box.  Outside,  all 
three  computers  share  the  same 
sleek  plastic  case  and  92-key  key- 
board. Inside,  they  share  the  same 
RAM  chips  and  power  supply,  but 
that's  about  all.  The  128  actually 
contains  three  separate  central  pro- 
cessing units  (CPUs),  two  separate 
BASICS,  two  independent  video  dis- 
play chips,  separate  banks  of  Read 
Only  Memory  (ROM),  and  even  dif- 
ferent memory  maps,  depending  on 
which  mode  is  selected.  What's 
more,  the  machine  can  be  operated 
in  five  distinct  modes:  Commodore 
64  mode,  128  mode  with  40-column 
video  and  graphics,  128  mode  with 
text-only  80-column  video,  CP/M 
mode  with  80-column  video,  and 
CP/M  mode  with  40-column  video. 

CPU  chips  include  the  6510  for 
64  mode  and  the  8502  for  128 
mode — both  6502-compatible — 
and  the  Z80A  for  CP/M  mode.  Vid- 
eo chips  include  the  VIC-II  for  64 
mode  and  40-column  128  mode, 
plus  an  80-column  chip  for  80-col- 
umn 128  mode  and  CP/M  mode.  A 
synthesizer  chip — the  Sound  Inter- 
face Device  (SID) — is  shared  by  all 
three  microprocessors.  Program- 
ming languages  include  BASIC  2.0 
in  64  mode  and  BASIC  7.0  in  128 
mode,  and  a  machine  language 
monitor  is  available  in  128  mode 
and  CP/M  mode. 

Does  all  this  sound  confusing? 
Don't  feel  bad — it  is.  Even  when 
using  the  Commodore  128,  you  can 
sometimes  forget  which  mode  the 
computer  is  in.  This  is  especially 
true  of  the  64  mode  and  40-column 
128  mode,  which  appear  virtually 
identical  on  screen. 

Furthermore,  some  modes  let 
you  switch  to  other  modes,  but  not 
back  again  without  restarting  the 
machine.  And  speaking  of  cold- 
starts,  the  Commodore  128  can  be 
switched  on  in  any  of  its  five  modes, 
depending  on  its  state  at  power-up. 
When  you  hit  the  power  switch,  the 
computer  first  checks  to  see  if  a 
CP/M  system  disk  is  inserted  in  the 
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drive.  If  so,  it  defaults  to  40-  or  80- 
column  CP/M  mode  (usually  80 
columns).  Otherwise,  it  checks  the 
cartridge  slot  for  a  Commodore  64 
cartridge  program.  If  it  finds  one,  it 
automatically  switches  to  64  mode 
and  runs  the  cartridge.  If  there's  no 
64  cartridge,  the  computer  checks 
for  a  128  cartridge.  If  it  finds  one,  it 
comes  up  in  128  mode  (either  40  or 
80  columns)  and  runs  the  128  car- 
tridge. If  no  128  cartridge  is  plugged 
in,  the  computer  checks  to  see  if  its 
40/80  DISPLAY  key  is  pressed.  If 
so,  it  starts  up  in  80-column  128 
mode.  Otherwise,  it  switches  to  40- 
column  128  mode. 

With  so  many  options,  operat- 
ing the  Commodore  128  will  take 
some  getting  used  to. 


One  of  the  biggest  questions 
about  the  Commodore  128 
is  its  degree  of  Commodore 
64  compatibility.  Stung  by  criticism 
and  slow  sales  because  of  the 
Plus/4's  lack  of  64  compatibility. 
Commodore  went  to  great  lengths 
to  make  sure  the  128  would  run  all 
existing  64  software.  In  fact,  Com- 
modore claims  the  128  is  100  per- 
cent 64  compatible. 

Our  tests  showed  the  128  had 
no  trouble  with  a  wide  range  of 
Commodore  64  programs  written  in 
BASIC  and  machine  language.  We 
ran  a  number  of  programs  published 
in  recent  issues  of  compute!  and 
COMPUTEl's  GAZETTE,  including 
SpeedScript  3.0.  Only  one  program 
failed:  "TurboDisk"  (COMPUTE!, 
April  1985).  TurboDisk,  a  machine 
language  utility  which  speeds  up 
disk  loading  by  as  much  as  300  per- 
cent, ran  fine  on  a  128  hooked  up  to 
a  1541  disk  drive,  but  would  not 
work  on  a  128  connected  to  the  new 
1571  disk  drive.  We  weren't  particu- 
larly surprised,  because  TurboDisk 
works  by  reprogramming  the  load 
routines  both  inside  the  computer 
and  in  the  drive.  Any  drive  that  isn't 
completely  1541-compatible  cannot 
handle  TurboDisk. 

Since  the  1571  is  designed  to  be 
much  faster  than  the  1541,  it  may 
seem  that  utilities  such  as  Turbo- 
Disk are  superfluous  anyway.  How- 
ever, keep  in  mind  that  the  1571, 
like  the  Commodore  128,  is  a  multi- 
mode  device.  When  the  128  is  oper- 
ating in  64  mode,  the  1571  drive 
behaves  just  like  a  1541 — it  stores 


170K  of  data  per  disk  and  runs  fairly 
slow.  When  the  computer  is 
switched  to  128  mode,  the  1571 
speeds  up  about  500  percent-  and 
becomes  a  double-sided  drive,  stor- 
ing about  360K  per  disk.  And  when 
the  computer  is  in  CP/M  mode,  the 
1571  runs  about  12  times  faster  than 
a  1541  and  stores  410K  on  a  floppy. 

In  CP/M  mode,  the  1571  also  is 
supposed  to  read  disks  in  IBM  Sys- 
tem 34  format,  such  as  those  made 
for  Osborne  and  Kaypro  CP/M 
computers.  However,  the  1571  drive 
we  tested  would  not  load  our  Os- 
borne disk.  A  Commodore  repre- 
sentative told  us  the  1571  we  were 
using  was  still  a  prototype,  and  that 
final  production  models  definitely 
would  read  CP/M  disks.  He  also 
said  that  production  1571s  would  be 
fully  1541  compatible,  so  that  pro- 
grams like  TurboDisk  should  work 
too. 

If  the  final  1571s  are  not  com- 
pletely 1541  compatible.  Commo- 
dore will  run  into  trouble  on  another 
front — commercial  copy  protection. 
Some  copy-protection  schemes  de- 
pend on  precise  timing  and  certain 
routines  within  the  1541  disk  drive 
ROMs.  If  much  is  changed,  the  disks 
won't  load.  Before  acquiring  a  Com- 
modore 128  and  1571  drive  to  run 
64  software,  it  would  be  a  good  idea 
to  try  loading  some  commercial 
disks  first  to  make  sure  they  work. 


The  best  news  about  the  Commo- 
dore 128  is  BASIC  7,0,  the  pow- 
erful BASIC  interpreter 
available  in  128K  mode.  It  is,  per- 
haps, the  most  powerful  BASIC  ever 
offered  in  a  personal  computer — 
more  complete  than  even  IBM 
BASIC  and  MSX  BASIC.  It  contains 
all  the  commands  in  Commodore  64 
BASIC  2.0,  all  the  disk  and  file  com- 
mands of  BASIC  4.0  (as  found  on 
the  Commodore  8032  and  Super- 
PET),  and  nearly  all  the  graphics 
and  sound  commands  of  the  Super 
Expander  64  cartridge,  Simon's 
BASIC,  and  the  Plus/4's  BASIC  3.5. 
BASIC  7.0  makes  it  possible  to 
draw  graphics,  define  and  move 
sprites,  create  sound  effects,  and 
play  music  without  PEEKs,  POKEs, 
or  machine  language.  Sprite  move- 
ment is  implemented  during  a  ma- 
chine-level interrupt,  so  a  few 
BASIC  statements  can  keep  up  to 
eight  sprites  moving  simultaneously 
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COMPUSERVE'S  Electronic  Mall 
LetsYou  Shop  TODAY. 


Presenting  the  computer 
shopping  service  that  delivers 
discount  prices,  name-brand 
merchandise,  and  in-depth 
product  information. 

To  make  your  computer  even  more 
useful,  join  CompuServe  and  shop  in 
our  Electronic  Mall.  Easy  enough  for 
beginners,  it's  open  24  hours  a  day, 
7  days  a  week.  And  it  offers  a  wide  range 
of  goods  and  services  from  nationally 
knovm  stores  and  businesses  including 
Bloomingdaie's,  Waldenbooks,  American 
Express  and  Commodore. 

CompuServe's  Electronic  Mall™  lets 
you  shop  at  your  convenience  in  all 
these  departments: 

The  Auto  Shop,  Book  Bazaar,  Finan- 
cial Mart,  Leisure  Center,  Merchandise 


Mart,  Newsstand,  On-line  Connection,  Per- 
sonal Computer  Store,  Record  Emporium, 
Specialty  Boutique  and  Travel  Agency. 


Take  the  CompoServe  Electronic 
Mall  15-Minute  Comparison  Test. 

What  you  can  do  in  15  minutes 
shopping  the  Electronic  Mall  way. 

•  Access  descriptions  of  the  latest  in 
computer  printers,  for  instance. 

•  Pick  one  and  enter  the  order 
command. 

•  Check  complete  descriptions  of 
places  to  stay  on  your  next  vacation. 

•  Pick  several  and  request  travel 
brochures. 

•  Access  a  department  store  catalog 
and  pick  out  a  wine  rack,  tools, 
toys. ..anything! 

•  Place  your  order. 

Wiatyou  can  do  in  15  minutes  shop- 
ping the  old  way. 

•  Round  up  the  family  and  get  in 
the  car. 


The  Electronic  Mall — A  Valuable 
Addition  to  the  Vast  World  of 
CompuServe. 

CompuServe  Information  Services 
bring  you  information,  entertainment, 
personal  communications  and  more. 

You  can  access  CompuServe  with 
almost  any  computer  and  modem, 
terminal  or  communicating  word 
processor. 

To  buy  a  CompuServe  Subscription 
Kit,  see  your  nearest  computer  dealer. 
To  receive  our  informative  brochure,  or 
to  order  direct,  call  or  write: 


CompuServe 

Inlormation  Services,  P.O.  Box  20212, 

5000  Arlinglon  Centre  Blvd.,  Columbus,  OH  43220 

800-848-8199 

in  Ohio  call  614-457-0802 


The  EJectronk:  Mall*"  is  a  service  of  CompuServe  Inc.  and  L  M.  EtenyA  Company. 
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while  the  program  performs  other 
tasks — or  even  stops.  To  make  it 
easier  to  define  sprites,  you  can  grab 
any  predrawn  shape  off  the  screen 
and  store  it  as  sprite  data,  or  design 
the  sprite  bit  by  bit  with  a  built-in 
sprite  editor.  Playing  music  with  the 
SID  chip  has  always  been  tedious 
because  of  the  large  number  of 
POKES  required,  so  BASIC  7.0  has 
ten  predefined  musical  instrument 
sounds  available  with  a  single 
command. 

Because  BASIC  7.0  is  so  exten- 
sive, we  can't  explain  every  com- 
mand in  detail,  but  we  can  cover 
some  highlights.  Remember  that 
some  specifications  or  syntax  rules 
may  have  changed  by  the  time  the 
Commodore  128  entered  final 
production. 

The  disk  and  file  commands  in- 
clude DLOAD  and  DSAVE  (for 
loading  and  saving  to  disk  without 
adding  ,8  to  the  filename);  DVERIFY 
(compare  a  disk  file  with  a  file  in 
memory);  CATALOG  and  DIREC- 
TORY (for  displaying  disk  directo- 
ries without  erasing  a  BASIC 
program  in  memory);  COPY  (dupli- 
cate a  file  using  dual  drives);  BACK- 
UP (copy  an  entire  disk  with  dual 
drives);  APPEND  (open  a  sequential 
file  for  updating);  COLLECT  (reor- 
ganize the  Block  Allocation  Map); 
CONCAT  (combine  two  disk  files); 
HEADER  (format  a  disk);  RENAME 
(assign  a  new  filename  to  an  existing 
file);  SCRATCH  (delete  a  file);  DO- 
PEN  and  DCLOSE  (open  or  close  a 
disk  file);  DCLEAR  (close  all  disk 
channels);  RECORD  (for  positioning 
the  relative  file  pointer);  DS  and 
DS$  (read  the  error  channel); 
BLOAD  (load  a  binary  machine  lan- 
guage file);  BSAVE  (save  a  block  of 
memory  as  a  binary  file);  and  BOOT 
(load  and  run  a  machine  language 
file). 

Note  that  none  of  these  com- 
mands adds  new  capabilities  not 
available  with  a  Commodore  64  and 
1541  drive;  they  merely  simplify  the 
syntax.  For  example,  COLLECT  is 
equivalent  to  OPEN  15,8,15, 
"V0";CLO5E  15.  The  commands 
can  also  be  abbreviated,  as  in  D- 
SHIFT-L  for  DLOAD  or  even  SHIFT- 
RUN/STOP  to  automatically  load 
and  run.  In  addition,  the  special 
function  keys  are  preprogrammed  to 
execute  certain  frequently  used 
commands,  such  as  DIRECTORY. 


Sprite  commands  not  only  re- 
place the  old-fashioned 
POKEs,  but  also  offer  more  op- 
tions. And  the  demo  programs  we 
saw  proved  that  BASIC  7.0  can 
move  sprites  fast  enough  for  good- 
quality  games  without  machine 
language. 

SPRDEF 

Entered  in  direct  mode,  this  com- 
mand activates  the  built-in  sprite 
editor.  An  editing  window  appears 
on  screen,  and  you're  prompted  to 
select  sprite  1  through  8.  A  number 
of  subcommands  let  you  clear  all  the 
sprite  data,  move  a  crosshair,  turn 
pixels  on  and  off,  and  change  colors 
for  multicolor  sprites.  When  you're 
done  designing  the  sprite,  you  reen- 
ter BASIC  by  pressing  SHIFT- 
RETURN,  then  RETURN  again. 
BASIC  7.0  does  not  require  you  to 


set  aside  memory  for  sprite  data; 
instead,  it  reserves  a  512-byte  block 
(for  eight  64-byte  sprites)  beginning 
at  location  3584  ($E00  hex). 

SPRITE  M:, on /off, foreground, 
priority,X,Y,mode 

Sets  up  various  sprite  attributes,  in- 
cluding sprite  color,  foreground/ 
background  priorities,  initial  X  and 
Y   position,   and   single   color/ 
multicolor. 

SFRCOLOR 

Defines  the  multicolor  registers 
shared  by  all  sprites. 

SPRSAV  sprite^, string 
SPRSAV  string,sprite# 
Moves  sprite  definition  data  into  a 
string  or  vice  versa.  For  example, 
you  can  define  a  sprite  by  first  draw- 
ing a  shape  on  the  screen  with  vari- 
ous graphics  commands,  then  copy 
the  shape  into  a  string  with  the 


SSHAPE  command,  and  finally 
move  the  string  into  the  sprite  data 
block  with  SPRSAV.  You  could  also 
copy  the  sprite  pattern  directly  to 
the  screen  with  SPRSAV  and 
GSHAPE. 

MOVSPR  sprite#,X,Y 

Moves  a  sprite  to  the  horizontal  and 
vertical  screen  coordinates  specified 
by  X,y.  This  is  called  absolute  move- 
ment and  is  like  the  POKEs  used  to 
move  sprites  to  screen  positions  on 
the  Commodore  64. 

MOVSPR  sprite#,+/-X,  +  /~Y 
Moves  a  sprite  plus  or  minus  the 
number  of  screen  coordinates  speci- 
fied by  X,y.  This  is  called  relative 
movement  and  is  useful  when  you 
don't  know  the  sprite's  current  posi- 
tion. For  example,  you  could  move 
sprite  5  seven  positions  to  the  left 
and  ten  positions  down  with 
MOVSPR  5,-7,  + 10. 

MOVSPR  sprite  #, angle  #speed 
Moves  a  sprite  continuously  in  a 
certain  direction  at  a  specified  speed 
via  a  machine  level  interrupt,  even 
when  the  BASIC  program  is  execut- 
ing other  lines  or  is  stopped.  When 
the  sprite  disappears  off  the  screen, 
it  wraps  around  and  reappears  at  the 
opposite  end  of  the  screen.  This 
command  is  useful  when  you  want 
to  send  a  sprite  flying  on  a  predeter- 
mined course  and  speed  while  your 
program  does  other  things.  For  in- 
stance, with  this  command  you 
could  quite  easily  animate  the  rocks 
in  an  Asteroids-type  game  while 
your  program  takes  care  of  checking 
the  joystick  and  moving  the  player's 
ship.  The  angle  parameter  specifies 
the  direction  in  degrees  (0  =  up), 
and  #speed  the  velocity.  To  move 
sprite  1  continuously  along  a  hori- 
zontal path  from  left  to  right,  you 
would  type  MOVSPR  1,90  #5.  To 
move  it  vertically  from  top  to  bot- 
tom a  little  faster,  you  would  type 
MOVSPR  1,180  #5.  Of  course,  the 
sprite  must  be  positioned  some- 
where on  the  visible  screen  to  begin 
with, 

COLLISION  type,Une# 

Detects  sprite  collisions  and  diverts 
the  program  to  a  subroutine  starting 
at  the  line  specified  by  line#.  The 
type  parameter  lets  you  detect 
different  kinds  of  collisions.  Exam- 
ples: COLLISION  0,1000  passes 
control  to  a  subroutine  at  line  1000 
when  two  sprites  collide.  (The  sub- 
routine must  end  with  a  RETURN.) 
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You  deserve  the  best.  You've  earned  it.  Now  reward  yourself  with  a  session  of  Night  Mission  PINBALL, 
the  most  realistic  and  challenging  arcade  simulation  ever  conceived!  ■  Stunning  graphics  and  dazzling 
C' —  jj-i      ^-^^^~^  sound  effects  put  Night  Mission  PINBALL  in  a  class  by  itself.  Game  features:  multi- 
pft"  ISuHti  Nighi      ballandmulti-playercapabilities,  ten  different  professionally  designed  levels  of  play, 
^§  W  *  'i  "^'t'      ^"**  ^"  editor  that  lets  you  create  your  own  custom  modes.  ■  So  take  a  break  with 
c^JsT"  *  3      -      Night  Mission  PINBALL  from  SubLOGIC.  Winner  of  Electronic  Games  magazine's 
■^wl*-'  j3      !      ''983  Arcade  Award  for  Best  Computer  AudioA/tsual  Effects. 
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COLLISION  1,2000  passes  control 
to  a  subroutine  at  line  2000  when  a 
sprite  collides  with  a  screen  object. 
COLLISION  2,10000  diverts  the 
program  to  a  subroutine  at  line 
10000  when  a  sprite  is  touched  with 
a  light  pen. 

BVMFitype) 

Detects  sprite  collisions  and  returns 
a  value  corresponding  to  the  sprites 
involved.  This  makes  it  possible  to 
determine  which  sprites  collided  or 
if  a  collision  happened  off  the  visible 
screen  (invisible  to  COLLISION). 
BUMP{0)  records  sprite-to-sprite 
collisions,  and  BUMP(l)  records 
sprite-to-screen  collisions. 

Graphics  commands  make  up 
for  the  deficiencies  in 
BASIC  2.0  and  complement 
the  sprite  commands.  They're  also 
fairly  fast  for  a  BASIC  interpreter. 
Here's  just  a  sampling: 

GRAPHIC  mode#,clear, window 

Flips  the  screen  to  the  graphics 
mode  specified  by  tnode#.  Mode  0  is 
40-column  text  (default);  1  is  hi-res 
graphics;  2  is  hi-res  graphics  with  a 
text  window;  3  is  multicolor  graph- 
ics; 4  is  multicolor  graphics  with  a 
text  window;  and  5  is  80-column 
text  (RGB  only).  The  text  windows 
are  similar  to  those  on  Atari  and 
Apple  computers — they  allow  a  few 
lines  of  text  beneath  the  graphics 
window  on  the  upper  part  of  the 
screen.  The  text  windows  start  at 
line  19,  but  that  can  be  changed 
with  the  window  parameter  in  the 
GRAPHIC  statement.  The  clear  pa- 
rameter lets  you  specify  whether  the 
screen  will  be  cleared  upon  entering 
the  new  mode  (0  =  no  clear,  1  = 
clear). 

COLOR  source  #, color  # 
Sets  up  the  color  registers.  The 
color#  parameter  defines  the  color 
from  1  to  16.  The  source#  parameter 
specifies  the  color  register  affect- 
ed— 0  for  the  40-column  back- 
ground, 1  for  the  graphics  mode 
foreground,  2  for  the  multicolor 
graphics  mode  primary  color,  3  for 
the  multicolor  graphics  mode  sec- 
ondary color,  4  for  the  40-column 
border,  5  for  the  character  color,  and 
6  for  the  80-column  background 
color. 

BOX  source  ^,Xl,Yl,X2,Y2,angle, 

paint 

Draws  a  box  on  the  hi-res  screen. 


Source#  defines  the  color  register  (0 
to  3),  XI,  Yl,  XI.  Y2  are  the  X  and  Y 
coordinates  of  the  opposite  corners, 
angle  is  the  rotation  in  degrees  (de- 
fault =  0),  and  paini  specifies 
whether  the  box  will  be  filled  (0  = 
hollow,  1  =  solid).  Example:  BOX 
1,10,10,60,60,0,1  draws  a  filled 
green  box  in  the  upper-left  corner  of 
the  screen. 

CIRCLE  source #,X  center, Ycenter, 
X  radius,Y  radius,arc  anglel,arc 
angle2,atigle,increment 
Draws  circles,  ellipses,  arcs,  trian- 
gles, octagons,  and  other  polygons 
on  the  hi-res  screens.  Source#  is  the 
color  register  (0  to  3),  X  center  and  Y 
center  are  the  X  and  Y  coordinates  of 
the  centerpoint,  X  radius  and  Y  radi- 
us are  the  X  and  Y  coordinates  of  the 
radius,  arc  anglel  is  the  starhng  arc 
angle  in  degrees  (default  =  0),  arc 
anglel  is  the  ending  arc  angle  in 
degrees  (default  =  360),  angle  is  the 
rotation  in  degrees  (default  =  0), 
and  increment  specifies  the  number 
of  degrees  between  segments  (de- 
fault =  2).  Examples:  CIRCLE 
1,160,100,65,50  draws  a  green  cir- 
cle; CIRCLE  1,160,100,65,10  draws 
a  green  ellipse;  CIRCLE  ,60,40, 
20,18„„45  draws  an  octagon,  and 

CIRCLE   ,260,40,20 90   draws   a 

diamond. 

DRAW  source  #,X1,Y1  TO  X2,Y2 
...etc, 

Draws  a  dot,  line,  or  figure  on  the 
hi-res  screens.  Sources  is  the  color 
register  (0  to  3),  XI  and  YI  are  the 
starting  screen  coordinates,  X2  and 
Y2  are  the  following  screen  coordi- 
nates, and  more  coordinates  can  fol- 
low, up  to  BASIC'S  line  length  limit. 
Examples:  DRAW  1,100,50  plots  a 
dot  at  coordinates  100,50  because 
no  endpoint  is  specified;  DRAW 
1,100,50  TO  100,75  draws  a  vertical 
line  from  100,50  to  100,75;  and 
DRAW  1,10,10  TO  10,60  TO  100,60 
TO  10,10  makes  a  triangle. 

LOCATE  X,Y 

Positions  the  invisible  graphics  cur- 
sor at  hi-res  screen  coordinates  X,Y. 
This  defines  the  default  starting 
point  for  all  the  drawing  commands. 

FAINT  source #,Xstart,Ystart, 

mode 

Fills  an  area  on  the  hi-res  screen. 

Sources  is  the  color  register,  Xstart 
and  Ystart  define  the  starting  coordi- 
nates, and  mode  specifies  which  area 
to  fill  (0  =  fill  the  area  defined  by 
source#,  1  =  fill  the  area  defined  by 


any  nonbackground  color).  Ex- 
ample: CIRCLE  ,160,100,65,50: 
PAINT  ,160,100  draws  and  fills  a 
circle  using  the  default  foreground 
color. 

SSHAPE  string,cortierl,corner2 

Stores  shapes  drawn  on  the  hi-res 
screens  into  string  variables.  The 
rectangular  area  of  screen  data  be- 
tween coordinates  cornerl  and  cor- 
ner! is  saved  in  the  string  variable 
string.  The  area  which  can  be  stored 
is  limited  by  the  255-character  ca- 
pacity of  a  BASIC  string.  SSHAPE  is 
very  similar  to  GET  in  IBM  BASIC. 

GSHAPE  strirtg,cprnerl,corner2, 
mode 

Plots  the  data  stored  in  a  string  vari- 
able as  a  shape  on  the  hi-res  screens. 
It  is  the  opposite  of  SSHAPE.  Cor- 
nerl and  cornerl  define  the  rectan- 
gular screen  coordinates,  and  mode 
specifies  how  the  shape  will  be  plot- 
ted. If  mode  =  0,  the  shape  is  placed 
as  it  exists;  1  inverts  the  shape;  2 
performs  a  bitwise  OR  when  the 
shape  is  overlapped  onto  the  screen; 
3  ANDs  the  shape  with  the  screen;  4 
XORs  (exclusive-ORs)  the  shape 
with  the  screen.  GSHAPE  corre- 
sponds to  PUT  in  IBM  BASIC. 

Sound  commands  in  BASIC  7.0 
take  much  of  the  tedium  out  of 
creating  sound  effects  and  mu- 
sic with  the  versatile  but  complex 
SID  chip.  Together,  BASIC  7.0  and 
the  SID  chip  give  the  Commodore 
128  the  best  sound  capability  of  any 
personal  computer  now  on  the  mar- 
ket. Here  are  a  few  examples: 

SOUND  voice,freq,dur,sweep,min, 
step,wave,ividth 

Plays  a  sound  with  the  selected 
voice,  frequency,  and  duration. 
Voice  can  be  1  to  3,  freq  0  to  65535, 
and  dur  Q  \.o  '^17b7  jiffies  (a  jiffy 
equals  1/60  second).  The  following 
parameters  are  optional.  Sweep  de- 
fines the  direction  for  a  sweep  (shift- 
ing frequencies),  with  0  =  up,  2  = 
down,  and  3  =  oscillation.  Min  sets 
the  minimum  frequency  for  a 
sweep;  step  picks  the  step  value  for  a 
sweep;  wave  chooses  a  SID  wave- 
form (0  =  triangle,  1  =  saw,  2  = 
square,  3  =  noise);  and  zoidth  speci- 
fies the  width  for  a  pulse  wavfeform. 

PLAY  "O  octj  tune,U  vol,V 
voice,X  filter,notes" 
Plays  one  or  more  notes  using  a 
selected  octave,  envelope,  volume, 


2  J     COMPUTEI     June  1985 


SUMMER  GAMES  li: 
EIGHT  NEW  WAYS10GO  FORTHE  GOLD. 


Sure  Summer  Games  was  great,  but 
why  stop  there?  Let  Summer  Games  II  take 
you  even  farther  with  eight  new  events 
including  cycling,  fencing,  kayaking,  triple 
jump,  rowing,  high  jump,  javelin  and  even 
equestrian.  They  ran  all  be  played  by 
up  to  eight  playere  and  some,  like  cycling, 
rowing  and  fencing  challenge  you  with 
realistic  head-to-head  competition. 

First,  you  decide  which  of  the  18  different 
countries  youVe  going  to  represent.  Then, 
in  true  Olympic  fashion,  you  will  need  the 
proper  strategy  and  mental  toughness, 
not  just  speed  and  agility  to  excel  in  each 


event.  It's  so  realistic,  there's  even  an 
opening  and  closing  ceremony  along  with 
medal  presentations  after  each  event. 

It's  not  (<x)  early  to  get  ready  for  1988. 
With  the  right  diet,  proper  training  and 
hours  of  practice  you  just  might  make  it.  In 
the  meantime,  put  on  your  sweatsuit,  grab 
that  joystick  and  let  Summer  Games  II  give 
you  eight  new  ways  to  Go  For  The  Gold! 


Strategy  Games  mr  the  ActtonGame  Player 


voice,  and  filter.  Oct  specifies  the 
octave  1  to  6;  tune  an  envelope  0  to  9 
(see  below);  vol  the  volume  0  to  9; 
voice  0  to  2;  filter  (0  =  off,  1  =  on); 
and  note  can  be  A,  B,  C,  D,  E,  F,  or  G 
with  sharps,  flats,  dots,  and  stan- 
dard durations  {quarter  notes,  half 


notes,  etc.).  An  M  in  this  parameter 
tells  the  computer  to  wait  for  all 
voices  currently  playing  to  end.  Any 
number  of  notes  can  be  strung  to- 
gether in  this  field,  up  to  BASIC'S 
line  length  limit.  The  predefined  en- 
velopes  selectable    with    the    tune 


parameter  are  0  =  piano,  1  =  accor- 

dian,  2  =  calliope,  3  =  drum,  4  = 

flute,  5  =  guitar,  6  =  harpsicord,  7  = 

organ,   8    =   trumpet,   and  9    = 

xylophone. 

ENVELOPE  #,attacKdecay,sus, 

rel,wave,width 


Commodore  1 28  Memory  Management  And  Machine  Language 

Charles  Brannon,  Program  Editor 


Using  an  external  memory  cartridge,  the  Commo- 
dore 128  can  be  expanded  up  to  512K  RAM.  This 
memory  is  not  directly  available  for  programs, 
though,  but  is  used  as  a  RAM  disk — the  functions 
of  a  disk  drive  are  simulated  v^fith  the  memory 
chips.  This  provides  faster  throughput  than  a  hard 
disk,  but  all  information  is  lost  when  the  power  is 
turned  off.  You  need  to  dump  the  contents  of  a 
RAM  disk  to  a  regular  disk  at  the  end  of  each 
session. 

A  special  memory  management  unit  (MMU), 
located  at  $FFOO,  controls  the  128's  complicated 
memory  map.  The  MMU  interprets  memory  ad- 
dresses even  before  the  microprocessor  sees  them. 
It  permits  you  to  swap  between  banks  of  64K,  but 
can  leave  a  small  portion  of  memory  as  common 
memory.  You  don't  always  want  zero  page  and  the 
stack  to  disappear  when  you  change  banks.  The 
MMU  lets  you  bank  between  four  64K  banks,  and 
allows  multiple  banks  of  256K,  up  to  one  megabyte 
of  memory. 

The  MMU  controls  whether  the  VIC  chip  or 
80-column  chip  controls  the  screen  display,  and 
even  senses  the  position  of  the  40/80  DISPLAY 
switch  (though  the  software  must  interpret  this 
switch).  The  MMU  controls  access  to  RAM  or 
ROM,  allowing  either  to  be  visible  in  the  memory 
map.  A  programmer  can  set  up  a  series  of  preset 
memory  configurations  and  quickly  select  them  by 
writing  to  the  MMU.  The  address  of  the  VIC  chip 
can  be  relocated  anywhere  within  the  virtual  256K 
memory  space. 

The  MMU  also  controls  the  fast  serial  port 
used  with  the  1571  disk  drive  (and  conceivably 
with  other  fast  peripherals).  It  determines  the  clock 
speed  of  the  8502,  and  controls  which  of  the  three 
microprocessors  (6510,  8502,  Z80A)  is  in  control. 

Although  not  supported  in  ROM,  it's  possible 
to  have  all  three  microprocessors  running  by 
quickly  switching  between  them.  Maybe  someone 
will  find  a  way  to  take  advantage  of  this  potential 
multiprocessing  capability. 


Machine  language  programmers  will  appreci- 
ate the  Commodore  128's  machine  language  mon- 
itor, entered  from  BASIC  with  the  MONITOR 
command.  It  pretends  that  the  128K  of  memory  is 
contiguous  and  permits  five-digit  hexadecimal  ad- 
dresses. It  makes  full  use  of  80  columns  if  selected. 
The  monitor  works  much  like  64  Superman,  with 
commands  to  assemble,  disassemble,  fill,  go  to 
address,  hunt  through  memory  for  a  hexadecimal 
string,  load,  display  memory  with  ASCII  equiva- 
lents, display  registers,  save,  transfer  a  block  of 
memory,  verify  a  saved  program,  exit  to  BASIC, 
modify  memory,  modify  registers,  and  display  disk 
error  status. 

BASIC  commands  for  machine  language  in- 
clude BLOAD  and  BSAVE  to  load  and  save  ma- 
chine language  programs  or  other  binary  files,  and 
BOOT  to  load  and  run  a  machine  language  pro- 
gram. The  familiar  U5R,  WAIT,  POKE,  PEEK,  and 
SYS  commands  can  now  reference  the  second  64K 
of  memory  with  the  BANK  command.  SYS  can  be 
followed  by  four  parameters  that  are  transferred 
into  the  accumulator,  X  register,  Y  register,  and 
status  flag  register.  After  a  SYS,  the  RREG  com- 
mand can  transfer  the  contents  of  these  registers 
into  four  variables.  This  makes  it  much  easier  to 
pass  information  between  BASIC  and  ML. 

The  8502  microprocessor  in  128  mode  is 
opcode-compatible  with  the  6502  and  6510,  but 
can  now  run  at  two  megahertz,  twice  the  speed  of 
the  VIC-20's  6502  and  Commodore  64's  6510.  All 
VIC/64  Kemal  routines  are  supported,  making 
program  translation  much  easier.  New  Kemal  rou- 
tines support  special  features  of  the  128,  including 
routines  for  memory  management. 

A  RESET  button  near  the  power  switch  can 
coldstart  the  machine.  Holding  down  RUN/STOP 
with  RESET  initiates  a  "lukewarm"  start.  It's  a 
more  thorough  reset  than  RUN/STOP-RESTORE, 
but  still  retains  your  BASIC  program.  This  reset 
puts  you  into  the  machine  language  monitor, 
where  you  can  exit  back  to  BASIC  with  no  harm 
done. 
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YOUR  COMMODORE  64 
CAN  NOW  USE  STANDARD 
APPLE  ll+HARDWARE 
AND  SOFTWARE 
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>ATEGIC  SIMULATIONS  Pi=A< 

SOFTWARE  PUBLISHING     ^Ar  out-!  vvmkl 

50RCIM     APPARAT     MICROPRO     SOFT 
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HCROSOFT 
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^E  MICRO 
MOUNTAIN  COMPUTi 
u^^Lt  BROTHERS 
\G     EXECUWARE 
PEACHTREE 
lE.C.C. 
B.P.I. 
VIDEX 
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WITH  THIS 


At  Mimic  we  believe  that  you  and  your  computer  should 
dictate  the  choices  or  hardware  and  software  you  can  use. 

;      The  Spartan  ™  was  developed  to  allow  you  to  choose  the 
hardware  and  software  that  best  suits  your  needs. 

Our  goal  in  designing  the  Spartan'"  was  simple. 
To  take  what  you  already  have  and  give  you  more. 

Mimic  Systems  is  proud  to  give  you  the  Spartan"'' 
The  Apple'"  II  +  emulator  for  the  Commodore  64''' 

Spartan'"  Suggested  Retail  Prices: 
The  Spartan"  (includes  BUSS,  CPU,  and  DOS  cards)  5599.00  J 

BUSS  card  S299.00  ^^^ 

'  CPU  card  (requires  BUSS  card!  SI  99.00  .     ,„.        1112 

DOS  card  (requires  buss  and  CPU  card)    SI 99.00 


^^|a;_fr 


FOR  INFORMATION   W!?ITE: 


(All  prices  In  U.S.  Funds.  Freight  not  lncluded.| 
American  Enptess.  Visa  oncj  MasterCard  accepted. 
Commodore  6d  ara  Commodore  logo  ore  trademarks  or  Commodore  Eiecrroni  cs  Lie  end  or 
Commodore  Buslr^ess  Mccr^lnes.  fnc,  Apple' 11+  Isotrodemark  of  Apcle  ComD'jrer.  me 
Sporron-  is  0  ttodemork  or  r^flirtiic  Sysrems  inc .  ond  rios  no  ossociorion  v 
Elecrrofiics  or  Apple  Computer  Inc   The  Spartan  Is  monulocrurea  Dv  Wimic  Systems  »nc 
under  license  gianred  bv  ATG  Electronics  Inc.  or  Victoria  BC   Canodo 


MIMIC    SYSTEMS    INC. 
1112    FORT    ST..    FL.    6N 
VICTORIA,    a.c. 
CANADA    V8V    4V2 


To  Order  Call: 

1-800-MODULAR 

(663-8527) 


-9;*^-'.-vSi.  -  ^^  ■ 


Redefines  any  of  the  ten  predefined  music  envelopes  for 
the  tune  paranneter  of  the  PLAY  command.  The  #  speci- 
fies the  envelope  (0  to  9),  followed  by  the  values  for 
attack,  decay,  sustain,  and  release.  Wave  sets  the  SID 
waveform  and  width  selects  the  width  of  a  pulse 
waveform. 

FILTER  freq,lopass,bandpass,  hipassjes 

Switches  the  SID  filters  for  use  with  the  filter  parameter 
of  the  PLAY  command.  Freq  selects  the  frequency;  lopass 
the  low-pass  filter  (0  =  off,  1  =  on);  bandpass  the  notch- 
reject  filter  (0  =  off,  1  =  on);  hipass  the  high-pass  filter 
(0  =  off,  1  =  on);  and  res  the  resonance  (0  to  15). 

Despite  the  almost  bewildering  array  of  commands 
listed  above,  we've  barely  scratched  the  surface 
of  BASIC  7.0.  Indeed,  a  preliminary  manuscript 
for  the  Commodore  228  System  Guide  is  a  stack  of  single- 
spaced,  typewritten  pages  two  and  a  half  inches  thick. 
There  are  commands  for  windowing,  switching  64K 
memory  banks,  renumbering  BASIC  programs,  deleting 
ranges  of  BASIC  lines,  assigning  new  definitions  to  the 
predefined  special  function  keys,  entering  the  machine 
language  monitor,  trapping  runtime  errors  and  diverting 
execution  to  an  error-handling  routine  at  a  certain  line 
number,  resuming  execution  after  a  runtime  error,  high- 
lighting errors  in  BASIC  lines,  constructing  loops  with- 
out FOR-NEXT,  and  inserting  delay  loops.  Plus 
additional  commands  for  sprites,  sound,  music,  and 
graphics  that  we  didn't  have  room  to  mention. 

Commodore  BASIC  7.0  is  a  predictable  step  in  the 
evolution  of  high-level  programming  languages  for  per- 
sonal computers.  It  continues  the  trend  away  from  low- 
level  instructions  such  as  PEEK  and  POKE — vestiges  of 
machine  language — and  further  shields  users  from  inti- 
mate contact  with  the  bits  and  bytes  of  computer  circuit- 
ry. Yet,  unlike  some  other  personal  computers  introduced 
in  recent  years,  the  Commodore  128  retains  its  BASIC  as 
a  built-in  feature  and  also  provides  a  machine  language 
monitor  for  those  who  want  to  explore  the  computer  at 
every  level.  It's  a  welcome  combination.  © 


To  receive  additional 
information  from 

advertisers  in  this  issue, 

use  \he  handy  reader 

service  cards  in  the 

back  of  the  magazine. 


STARPOINT  SOFTWARE  proudly  presents 
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[say  Icepick],  a  revolutionary  new  concept  in 
software  de-protection  for  the  Comnnodore 
64.  ISEPIC  is  not  a  disk  duplication  system, 
but  an  extraordinary  hardware/software 
combination  that  actually  bypasses  any  disk 
protection  scheme.  ISEPIC  captures  and 
saves  the  protected  program  as  it  runs  in  the 
64's  memory,  this  "snapshot"  becomes  ac- 
cessible to  the  user  for  complete  inspection 
and  alteration.  From  this  image,  ISEPIC  can 
automatically  create  a  compact,  auto-booting, 
fast-loading  file  which  is  completely  un- 
protected and  self  contained. 

■fr    Copies  ALL  memory-resident  software 

•k    ISEPIC'd  programs  load  many  times 
faster  than  originals 

tf  ISEPIC  is  invisible  to  software— cannot 
be  defeated 

i!  Eliminates  drive  "knock"  due  to  antique 
protection  schemes— adds  years  of  life 
to  your  drive 

ii  Automatically  "cracks"  protected  pro- 
grams into  single,  auto-booting,  super- 
fast  loading  files 

■sV    Place  multiple  programs  on  a  single 
diskette 

ii     Create  auto-booting,  fast-loading 
versions  of  your  own  programs 

■fr  Cracked  programs  are  completely  self- 
contained  and  run  independently  of  the 
ISEPIC  adapter 

-iv    Copies  software  with  a  flick  of  a  switch 

-k    ISEPIC  comes  complete  and  ready-to- 
run,  just  plug  into  expansion  port 

■iz    Programs  cracked  by  ISEPIC  may  be 
used  on  MSD  or  4040  drives  as  well 
as  hard  disks  regardless  of  original  pro- 
tection schemes 

When  ordering  by  mail: 

*  $64.95   +    3.00  shipping 

*  £64.95    +    4.00  COD  orders 

*  Calif,  residents  add  6%  sales  tax 

*  VISA  or  Mast;ercard  accepted 

*  Shipping  out  of  USA  SB. 00 
Please  allow  4-6  weeks  for  delivery. 


WRITE  OB  PHONE 


ST^RPOIMT  SOFTWARe 


Scar  Route  1 Q 


Gazelle.  CA  96034 


[916)435-9371 


NEW  LOW  PRICES  FROM  THE  WORLD'S 
LARGEST  SPORTS  SOFTWARE  COMPANY! 

Whether  you're  a  coach,  player,  computer  bug,  statistician,  dabbier,  doer  or  just  .^^ 

a  real  sports  fan,  PDS  has  a  package  for  you ...  at  our  lowest  prices  ever!  '^^ 

Check  our  line-up  below,  and  then  order  your  first  PDS  Sports  Package.  mm 


FOOTBALL  STATISTICS.  A  comprehensive 
computer  software  system.  You  compare 
teams  in  over  60  offensive  and  defensive 
situations  and  watch  the  matchups  on  the 
screen.  Every  team  is  given  a  power  rating. 
PDS  also  provides  "year-to-date"  data 
diskettes  for  a  nominal  charge.  39.95 

FOOTBALL  HANDICAPPING.  (Includes  FOOT- 
BALL STATISTICS  Package).  Forecasts  the 
outcome  of  football  games  based  on  massive 
amounts  of  statistical  data,  morning  lines 
and  point  spreads.  49.95 

BASKETBALL  STATISTICS.  The  most  compre- 
hensive basketball  program  ever  written. 
"What-if"  your  way  into  every  imaginable 
comparison  and  formulation.  39,95 

BASKETBALL  HANDICAPPING.  I  Includes 
BASKETBALL  STATISTICS!-  Gives  you  an 
inside  look  into  the  outcome  of  games  by 
mathematically  equating  statistics,  lines 
and  point  spreads.  49.95 

BASEBALL  STATISTICS.  See  how  opposing 
baseball  teams  stack  up  against  each  other 
See  summarizations.  Performance  stats  on 
every  team  in  the  major  leagues.  39.95 

BASEBALL  HANDICAPPING.  (Includes 
BASEBALL  STATISTICS)  Makes  you  better- 
prepared  to  predict  the  winner  of  any  game. 
At  least,  mathematically  49.95 

THOROUGHBRED  HANDICAPPING.  This 

"world  class  '  program  gives  you  an  edge  in 
predicting  winners.  A  proven  system... by 
PDS  and  many  horseracing  enthusi- 
asts. 129.00 
HARNESS  RACE  HANDICAPPING.  The  fast, 
easy  way  to  find  out  what  races  and  what 
horses  should  be  looked  at... all  summarized 
in  a  "power  rating"  format.                   129.00 

QUARTER  HORSE  HANDICAPPING,  the  com- 

^^  puter  system  actually  "rates"  the  horses  in 
each  race  of  what  is  the  fastest  growing 
segment  in  the  sport  of  kings.  1 29.00 


TRAINER  STATISTICS.  Analyzes  all  local  race- 
horse trainers  and  gives  you  a  rating  for 
each  one.  39.95 

JOCKEY  STATISTICS.  A  short  time  with  this 
software  package  will  show  you  why  the  top 
1 5  jockeys  at  local  tracks  win  over  90%  of 
ail  races.  39.95 

HARNESS  DRIVER  STATISTICS.  A  comple- 
ment to  the  HARNESS  HORSE  HANDICAP- 
PING System,  this  package  tells  you  all  you 
need  to  know  about  the  man  (or  woman) 
behind  the  horse.  39.95 


?2^ 


PDS 


RO.  BOX  E  /  TORRANCE.  CA  90507  /  (2 1 31  5 1 6-6688 
Please  send  me  the  following  PDS  SOFTWARE 
PACKAGE: 

: $ 

$ 

$ 

Total 

Add  $6.00  for  postage  and  handling. 
Calif,  residents  add  6Vi%  sales  tax 


I  have  an  APPLE  (      )    IBM  1 

COMMODORE-64  (      ( 

DISKETTE  (      )  CASSETTE  ( 

(     I  Check  enclosed 

(     I  Charge  my  credit  card: 

M.C.  (      ) 

Card  No 

Signature 


TRS-80  (      ) 


MODEL  #. 


A.E.  (      ),  VISA  ( 


.Expires. 


[As  it  appears  on  credit  cardi 
OR  CHARGE  BY  PHONE...CALL  (800)  222-2601 
(In  Calif:  (213)  516-6688) 

NAMt 


ADDRESS 

PHONE 

CITY 

STATF            7.IP 

Dealer  [nquiries  \mted 

How  To  Buy 
The  Right  Printer 

Kathy  Yakal,  Feature  Writer 


Choosing  a  printer  may  be  the  most 
difficult  decision  you'll  make  when 
assembling  your  computer  system.  Even 
if  you're  planning  to  use  it  only  for 
personal  letters  and  program  listings, 
there  are  more  alternatives  to  consider 
than  with  any  other  peripheral. 


Once  you  buy  a  computer, 
selecting  a  tape  or  disk 
drive  and  a  monitor  isn't 
too  tough.  There  aren't  that  many 
choices.  Modems  are  a  bit  more  dif- 
ficult because  of  the  number  avail- 
able,    but    their    features    and 
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performance  don't  vary  all  that 
much. 

Printers,  however,  are  another 
stor}'.  There  are  dozens  of  printers 
which  are  inexpensive  and  produce 
good  quality  print.  And  they're 
complicated  pieces  of  machinery. 
"As  opposed  to  a  computer,  which 
has  relatively  few  mechanical  or 
moving  parts,  printers  are  the  big- 
gest mechanical  piece  of  your  com- 
puter system,"  points  out  Dave 
Crowley,  corporate  communications 
specialist  for  Centronics. 

"Consumers  have  to  be  aware 
that  if  there  is  going  to  be  a  problem, 
it  probably  will  happen  in  the  print- 
er rather  than  anywhere  else  in  the 
computer  system." 


Further,  everyone's  needs  are 
different.  Some  people  just  want  to 
print  out  program  listings.  Others 
want  to  print  school  papers  or  per- 
sonal letters  or  business  correspon- 
dence, or  pictures  created  with  light 
pens  or  graphics  tablets.  The  goal  is 
to  find  a  printer  that  has  everything 
you  need  without  spending  lots  of 
extra  money  for  features  you'll  nev- 
er use. 


he  first  step  in  buying  a  printer, 
then,  is  to  determine  exactly 
what  you  need.  "We  always 
recommend  that  someone  sit  down 
and  draw  up  a  list  of  items  that  the 
printer  will  be  used  for,  and  take 
that  with  them  to  the  dealer,"  says 
Crowley, 

Here's  a  list  of  questions,  com- 
piled with  the  help  of  Crowley  and 
Star  Micronics  Marketing  Director 
Tom  Bongiorno,  that  you  might 
want  to  ask  yourself  before  visiting 
computer  dealers: 

•  Will  this  printer  work  with  my 
computer?  And  if  it  doesn't,  is  the 
dealer  knowledgeable  enough  to 
help  you  figure  out  how  to  make  it 
work?  Compatibility  should  be 
assured. 

Printers  for  personal  computers 
are  designed  to  work  with  two  gen- 
eral types  of  interfaces:  parallel  and 
serial.  For  the  purposes  of  hooking 
up  a  printer,  either  works  just  as 
well.  The  most  common  parallel  in- 
terface is  often  referred  to  as  a 
Centronics-standard  interface,  and 
the  most  common  serial  interface  is 
called  the  RS-232.  If  your  computer 
doesn't  have  one  of  these  interfaces 
built  in,  you  may  need  to  buy  an 
interface  adapter  in  addition  to  a 
printer.  In  any  case,  make  sure  the 
printer  you  buy  is  compatible  with 
the  interface  available  on  your 
computer. 

Many  printer  manufacturers  of- 
fer cables  that  connect  directly  to, 
say,  a  Commodore  64  or  an  Atari. 
Buying  such  a  printer  frees  you  from 
compatibility  worries  for  now,  but 
may  also  restrict  its  future  use  if  you 
someday  buy  a  different  system. 
Some  printers  allow  interfacing 
through  either  a  standard  or  a 
machine-specific  port;  these  provide 
greater  flexibility  for  use  with  other 
computers. 

Consider  software  compatibil- 
ity, too.  Even  if  you're  going  to  use 


Modem  Tools  for  Modem  Minds... 


Grolier  presents  the  first  and  only 
series  of  productivity  tools  with 
a  built-in  tutorial  and  practice. 


»TM 


GROLIER  ELECTRONIC  PUBLISHING  INC. 


■^'EduCalc 

...  the  first  electronic  spreadsheet  program  that  also  teaches  beginning 
users  to  understand  and  use  a  spreadsheet! 

•  Self-paced,  menu-driven  tutorial  lets  you  determine  the  amount  of  help  you 
need  at  any  one  time,  and  then  return  later  for  additional  instruction. 

•  Practice  template,  for  creating  a  personal  budget,  enables  you  to  become 
familiar  with  a  standard  spreadsheet  before  developing  your  own. 

•  No  need  to  memorize  commands;  directions  appear  on  each  screen. 

•  Makes  it  easy  to  create,  edit,  save  and  print  a  spreadsheet  up  to  26  columns 
wide  by  99  rows  deep. 

•  Enter  text,  numbers  or  formulas,  define  constants,  and  sort  infomiation 
alphanumerically. 

...there's  never  been  a  more  simple  solution  for  creating  budgets,  charts, 
schedules  and  tables  for  school  and  home  use! 
ONLY  $4  Q95  Suggest  Retail  Price 


.........^i*: 


(SPACE)  to  Kt  nor.  I.l.cti 


Friendly  Filer™ 

...a  great  database  management  learning  experience 
that's  also  great  fun! 

•  Teaches  database  management  through  the  use  of  an 
entertaining  tutorial  and  stimulating  questions. 

•  Researches  the  answers  by  searching  out  and  sori:ing  a 
built-in  "animals"  database. 

•  Uses  simple,  self-explanatory  menus,  to  lead  the  user 
step-by-step  into  creating  files  by  entering,  selecting, 
sorting  and  printing  data. 

...a  marvelous  learning  experience  that  stresses  imagination, 
creativity  and  fun.  And  it's  productive,  too! 

ONLY  $39^^  Suggest  Retail  Price 


NEW! 


Note  Card  Maker™ 

This  remarkably  powerful  program  is  a  clever  hjtorial. . . 
a  helpful  tool ...  and  a  terrific  way  to  take  a  lot  of  the  time 
and  effort  out  of  preparing  bibliographies  and  note  cards. 

•  Interactive,  self-paced  tutorial  demonstrates  exactly  how  to 
prepare  note  cards. 

•  Provides  user  with  a  standard  fonnat  for  gathering  research 
information,  including  key  word,  source  code  and  notes. 

•  Uses  the  database  management  facility  to  sort  and  search  for 
data... then  incorporates  the  word  processing  capabilities  to 
reorganize,  select,  edit  and  print-out  note  cards  in  any 
desired  sequence. 

ONLY$2[^5  Suggest  Retail  Price 


Available  for  the  Apple®  II  family  of  computers.  Also  available  for  the  Commodore  G4™  and  IBM®  PC  and  PCjr,  in  Fall  1985. 
Seeyour  computer  software  dealer  today.  Or  call  Grolier  Electronic  Publishing  ToU-Free.  800-858-8858. 

Grolier  Electronic  Publishing,  Inc. 


SHERMAN  TURNPIKE,  DANBURY.  CONNECTICUT.  06816  •  (SCO)  856-8858 
EduCak.  Friendly  Filer  and  Nale  Cord  Maker  are  registered  Irademarls  of  Grolier  EleOwnic  Publishing  Inc.  Ai>ple  is  a  registered  Irudemark  of  Apple  Computer  !nc 
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Legend,  The  Clear 


You  can  choose  from  several  types  of 
printers.  They're  available  from  more 
than  50  manufacturers.  With  and  with- 
out graphics.  In  high  speed  and  low 
speed  models  at  prices  ranging  from  less 
than  S200  to  well  over  S2,000. 

How  do  you  know  you  made  the 
right  choice? 

Here's  some  easy-to-understand  facts 
from  Legend  to  help  you  make  a  "clear 
choice." 
Legendary  Legibility. 

There  are  trade  offs  in  buying 
printers.  Simply  stated,  within  a  given 
price  range,  quality,  or  legibility, 
decreases  as  speed  increases. 

The  object  is  to  find  the  printer  that 
gives  the      ^^  legibility  you  want  at 
the  speed 


Chdce. 


How  Do  You  Know  You  Chose 
The  Right  Printer? 


ckpabilit)-  to  maxiiTiize  speed  an^  qu^ty. 


you  need  and  at  the  price  you  can 
afford,  like  a  Legend. 

Dot  matrix  type  printers  are  the  most 
popular  and  lowest  cost  printers.  Most 
combine  high  speed  with  acceptable 
quality  and  legibility  They're  extremely 
versatile  and  very  dependable. 
Legendary  Head. 

Dot  matrix  printers  have  print  heads 
containing  tiny  pins  that  "fire"  against  a 
ribbon  to  make  a  series  of  dots  that 
combine  to  form  letters,  numbers  and 
graphics.  Generally,  the  more  pins  or 
"wires,"  the  closer  together  the  dots, 
and  the  better  the  legibility 


Legend  printers  have  "full  nine  wire" 
heads  for  better  legibility 

Many  dot  matrix  printers  produce 
type  that  is  acceptable  for  about  95%  of 
all  correspondence — 
invoices,  letters,  and 
the  like. 

Daisy  Wheel  or  '"let- 
ter quality"  printers  run 
one  fifth  as  fast  and  cost 
twice  as  much  as  a 
Legend.  So  a  Legend  dot 
matrix  printer  makes 
)le-^trik^  -  belter  sense.  Why? 
Read  on. 

Easy  to  Switch. 
Many  dot  matrix  printers  have  a 
"double  strike"  capability  that  reduces 
the  speed,  but  produces  better  legibility 

Unfortunately,  with 
most  dot  matrix  printers, 
changing  to  the  double 
strike  mode  is  difficult. 
And,  unlike  Legend,  most 
other  printers  only  run  at 
25%  of  their  normal 
speed. 

Legend  printers  have  a 
special,  easily  accessible  switch  on  the 
top  of  the  machine  so  double  strike 


legend's,^ 
Square  Dots 


tiigher  legiiitlity 


capability  (Legend  calls  it  "damn  near 
letter  quality")  is  at  the  operator's  fin- 
gertips. And  machine  speed  stays  at  a 
__.|_  very  productive 
I   50%  of  normal 
speed. 
Square  Vs. 

Square  dots  are  25%     j   Round 
biwer  than  round  dot.s.  1        ,    ^V  . 
"^  In  addition  to 

speed,  the  shape  of  the  dot  affects  the 
legibility  of  t)^pe,  too. 

Most  printers  use  round  dots.  Legend 
printers  use  square  dots  because  they 
butt  better  and  fool  the  eye  into  think- 
ing that  lines  are  continuous. 

Think  of  it  this  way  Imagine  you 
stack  a  series  of  baseballs  next  to  a 
series  of  equal  sized  blocks.  Now  move 
back  20  paces  and  look  at  the  two 
stacks.  Which  one 
would  look  most  like 
a  straight  line? 
Legendary 
Graphics. 

A  picture  is  indeed 
worth  a  thousand 
words.  And  today's 
sophisticated  software 
packages  are  making  it  easier  to  trans- 
late data  into  graphics  that  communi- 
cate quickly  and  clearly. 


Competitors' 
I  Round  Dots 


Legend  8.S(i—  IIJU  cps/8i)  col 


egeiid  1(1811— 140  cps/KO  col. 


Unfortunately,  not  all  printers  are 
capable  of  running  graphics  software, 
including  some  of  the  more  popular 
models.  If  your  application  includes 
charts,  graphs  or  other  kinds  of  sym- 
bols, it's  important  that  you  pick  a 
printer  that  is  compatible  with  the  soft- 
ware and  capable  of  printing  graphics, 
like  Legend. 

Legend  printers  are  compatible  with 
almost  all  popular  graphics  software 
programs.  What's  more,  you'll  get  more 
characters  built  into  memon.'  when  you 
choose  a  Legend. 
More  Graphics. 

Most  comparably  priced  printers  fea- 
ture 96  to  196  characters  (symbols)  built 
into  memor}'.  Legend  printers  have  228, 


l«ger|d-pr|mers  hav'e-22p  charac= 
jers  ill  mehiory  to  produce  inore 


grapiiics  and  more  languages. 

so  you  can  produce  more  graphics  and 
more  languages  (French,  German. 
Greek,  Spanish,  Italian)  so  you  can  be 
more  productive.  And  isn't  that  the  bot- 
tom line,  really? 

Legend's  advanced  square  dot  tech- 
nology will  make  your  charts  and 
graphs  look  sharper,  too. 


•Legend  Printers  can  he  interfiiced  witii  most  computers,  including: 
Apple*  II,  He,  lie,  Atari;*  Columbia*  I60()  series-.  Compaq.™  Commodore,*  Compaq  Plus;' 
DeskPro  ™  Eagle*  PC"  and  Spirit."'  "mrbo;'"  Hewlett  Packard*  1 10, 150;  IBM*  PC,  .XT,  ,W; 
Kavpro;*  Sanvo;*  Tl*  Professional;  TRS.'^ 


A  Head  For  Life. 

No  printer  at  any  price  is 
worth  its  salt  if  it's  not  depend- 
able. Legend's  square  dot  heads 
use  a  special  alloy  that  main- 
tains a  sharper  image  and  a 
,;/    longer  life.  So  all  Legend 
printers  come  with  a  life- 
time head  warranty 
If  anything  ever  goes 
wrong  with  the  head,  simply 
send  it  back  for  an  immediate 
exchange.  It's  so  simple,  It's  legendary. 
Legendary  Value. 

If  there's  still  any  doubt  in  your 
mind  about  which  printer  is  best  for 
you,  we'll  make  your  decision  e\^en 
easier. 

Legend  printers  also  come  with 
standard  friction  and  tractor  feed 
and  are 
compati- 
ble with 
most 
com- 
puters.* 
They  fea- 
ture over  40 
software  selectable  type  styles 
and  make  a  crisp  original  plus 
three  copies. 
Most  remarkable  of  all,  prices  start  at 
just  S279,  And  for  just  S]  you  can  get 
a  special  buffer  upgrade.  Compare  if 
you  like,  but  well  bet  you'll  find  Legend 
Printers,  feature-for- feature,  to  be  clearly 
the  best  value  for  \'our  money  today 
Call  1-800- 4- LEGEND  today  for 
more  information  and  visit  your  dealer 
to  see  them  in  action. 

Dealer  inquiries  call  1-800 ■321-4484. 
In  CA  call  (818)  704-9100.  Or  write  CAL- 
ABCO  Peripherals  Division,  6041  Variel 
Avenue,  Woodland  Hills,  CA  91367. 

Legend  and  Legend  Peripheral  Products  are 
trademarks  of  Cal-Abco. 

iLEceno 

The  Clear  Choice. 
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the  printer  only  to  print  out  corre- 
spondence and  home  records,  make 
sure  the  printer  will  accept  vour 
word  processor's  formatting 
commands. 

•  Hmi'  good  does  your  printed 
copy  need  to  look?  Different  kinds  of 
printers  offer  varying  type  qualities. 

Impact  printers  {daisy  wheel  and 
dot-matrix)  strike  the  paper  through 
an  inked  ribbon  to  form  characters 
and  graphics.  Daisy  wheel  printers 
are  capable  of  producing  letter- 
quality  type  because  the  characters 
are  stamped  onto  the  paper  by  a 
print  wheel  that  works  much  like 
the  strikers  on  a  typewriter.  Dot- 
matrix  printers,  on  the  other  hand, 
have  printheads  with  dozens  of  tiny 
metal  pins  that  reproduce  characters 
and  graphics  by  printing  tightly 
packed  patterns  of  dots.  Some  dot- 
matrix  printers,  depending  on  the 
numbers  and  placement  of  pins,  can 
produce  near  letter-quality  print. 

Thermal  printers  don't  use  an 
ink  ribbon — they  burn  characters 
and  graphics  onto  special  paper 
coated  with  a  heat-sensitive  film. 
They're  relatively  inexpensive  and 
quiet  compared  to  other  printers, 
but  the  special  paper  costs  more. 
Thermal  transfer  printers,  however, 
can  print  on  any  kind  of  paper. 

Ink-jet  printers,  the  third  kind 
found  in  the  under-$  1,000  price 
range,  spray  ink  through  tiny  holes 
to  reproduce  characters. 

"You  should  always  look  at  the 
output  of  the  printer — get  a  demo — 
because  draft  mode  or  near-letter 
quality  from  three  different  printers 
will  always  differ,"  says  Bongiorno. 
"If  you  like  the  typeface  on  one 
printer  better  than  another,  then  to 
you  the  quality  will  be  better,  and 
that's  the  one  you  should  buy." 

'Are  there  hidden  costs?  Printers 
that  require  special  paper  or  addi- 
tional interface  cables  can  make  that 
under-$300  printer  move  closer  to 
the  $400-plus  range.  If  the  printer 
uses  a  ribbon,  what  is  its  average 
life?  Can  it  be  re-inked? 

•  What  type  of  paper  handling 
does  the  printer  use?  Printers  can 
move  paper  around  the  platen  in 
two  different  ways.  Friction-feed 
printers  work  like  typewriters;  they 
grip  one  sheet  at  a  time  and  roll  it 
through.  Tractor-feed  printers  use  a 
pair  of  cogged  wheels  to  grip  holes 
punched  into  the  edges  of  special 
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printer  paper.  The  paper  comes  as  a 
long,  continuous  form  with  perfo- 
rated pages,  and  the  holes  along  the 
edges  are  also  perforated  for  remov- 
al. The  tractor  wheels  can  be  adjust- 
ed to  accommodate  different  paper 
sizes  and  special  forms,  such  as 
mailing  labels.  (A  printer  with  non- 
adjustable  tractors  is  called  a  pin- 
feed printer.) 

Some  printers  offer  both  fric- 
tion- and  tractor-feed  by  including 
snap-on  tractors,  This  gives  you  the 
option  of  printing  correspondence 
on  letterhead  stationery,  or  printing 
continuous  forms. 

•  How  easy  is  it  to  obtain  parts? 
Daisy  wheels,  for  example,  some- 
times break  after  heavy  use.  Can 
you  run  down  to  a  local  office  sup- 
ply store  to  replace  the  wheel,  or 
will  you  have  to  order  it  by  mail  and 
wait  six  weeks  for  delivery?  If  the 
printhead  on  a  dot-matrix  printer 
bums  out,  can  it  be  replaced  without 
exchanging  the  entire  printing 
mechanism?  How  economical  are 
replacement  ribbons?  If  you  buy  a 
thermal  printer,  is  the  special  paper 
readily  available? 

•  How  good  is  the  warranty? 
Opinions  vary  on  what  constitutes  a 
fair  warranty  period,  but,  in  all 
cases,  find  out  what  it  is,  Bongiorno 
believes  that  one  year  is  fairest.  "If 
something  is  going  to  go  wrong,  it 
will  go  wrong  within  the  first  year," 
he  says.  "Sometimes  the  warranty 
on  the  printhead  is  different  than 
the  printer,  which  you  have  to  be 
careful  of." 

•  Can  the  printer  produce  the  kind 
of  graphics  you  need?  You  may  not 
need  graphics  at  all,  of  course,  but  if 
you  do,  there  are  basically  two  types 
of  graphics  that  printers  can  pro- 
duce. With  block  graphics,  the  printer 
recognizes  a  block  of  dots  as  a  sym- 
bol or  special  character.  It  constructs 
the  picture  by  assembling  these 
symbols.  With  dot-addressable 
graphics,  each  tiny  dot  can  be  indi- 
vidually printed,  so  the  printer  isn't 
limited  to  a  set  of  predefined  block 
graphics  patterns.  If  you  need  to 
reproduce  high-resolution  draw- 
ings, charts,  or  diagrams,  you'll 
probably  need  a  printer  with  dot- 
addressable  graphics.  It  will  also 
have  to  be  a  dot-matrix  printer,  be- 
cause daisy  wheel  printers  aren't  ca- 
pable of  producing  detailed 
graphics. 


Although  these  are  the  major 
concerns,  there  are  myriad 
other  questions  you'll  want 
answered  when  shopping  for  a 
printer: 

How  fast  is  it?  Printer  speeds  are 
usually  measured  in  characters  per 
second,  abbreviated  cps.  Dot-matrix 
printers  are  generally  much  faster 
than  daisy  wheel  printers  in  the 
same  price  range,  but  remember  that 
speeds  can  vary  in  different  printing 
modes. 

How  noisy  is  it?  For  home  use, 
this  might  be  critically  important  if 
your  computer  shares  a  family  room 
with  the  TV. 

Does  it  have  a  buffer?  How  large? 
A  printer  buffer  is  an  area  of  memo- 
ry inside  the  printer  that  lets  it  print 
your  material  while  freeing  up  the 
computer  for  other  tasks.  To  be  use- 
ful, a  printer  buffer  should  be  at 
least  as  large  as  the  files  you  need  to 
print.  For  instance,  if  you'll  frequent- 
ly be  printing  documents  about  16K 
long — roughly  eight  double- spaced 
pages — the  printer  buffer  should 
contain  at  least  16K  of  memory.  To 
keep  initial  costs  down,  you  can 
often  buy  a  printer  without  a  buffer 
and  add  the  memory  later.  Also, 
printer  buffers  are  available  as  sepa- 
rate devices  that  connect  between  a 
computer  and  any  standard  printer. 

Can  the  printer  produce  special 
type  styles,  like  italics,  boldface,  con- 
densed, expanded?  Keep  in  mind  that 
even  though  a  printer  offers  special 
fonts,  your  software  may  not  be  ca- 
pable of  sending  the  proper  codes  to 
take  advantage  of  these  features. 
This  is  a  tricky  problem  that  can 
only  be  solved  by  carefully  compar- 
ing the  software  manual  with  the 
printer  manual. 

Can  I  afford  it?  The  bottom-line 
question. 

A  good  computer  dealer,  says 
Crowley,  will  take  the  time  to  an- 
swer all  of  your  questions  and  run 
the  printer  through  its  paces,  just  as 
a  good  car  dealer  will  take  you  out 
for  a  test  drive.  "I've  actually  gone 
in  to  buy  a  car  and  gotten  a  salesman 
who  couldn't  tell  me  whether  it  had 
six  or  eight  cylinders,"  he  says.  "If 
you  run  up  against  somebody  who's 
not  willing  to  take  the  time,  then 
take  your  business  someplace  else — 
because  there  are  plenty  of  people 
who  are  willing."  © 


COMPUTE!  Books  brings  you  the  companion  volume  to  the  best 
seller,  Machine  Language  for  Beginners,  about 
which  the  critics  have  said: 

"If  you  know  BASIC  and  want  to  learn  machine  language,  this  is  the 
place  to  start  ....  Building  on  your  experience  as  a  BASIC  programmer, 
Mansfield  very  gently  takes  you  through  the  fundamentals  of  machine 
language." — Whole  Earth  Software  Catalog 

"Understandable" — The  New  York  Times 

"Presents  the  machine  language  novice  with  a  very  good  tutorial  in 
simple,  understandable  terms." — Antic 

"I  highly  recommend  Machine  Language  for  Beginners  as  your  first  in- 
troduction to  the  world  of  machine  language." — Commodore  Power/Play 

The  Second  Book  of  Machine  Language  for  the 
Commodore  64,  VIC-20,  Apple,  Atari,  and  PET/CBM 

The  Second  Book  of  Machine  Language  picks  up  where  Machine  Language 
for  Beginners  left  off.  This  new  book  contains  one  of  the  most  powerful  ma- 
chine language  assemblers  currently  available.  The  LADS  assembler  is  a  full- 
feotured,  label-based  progfamming  language  which  can  greatly  assist  you 
in  writing  machine  language  programs  quickly  and  easily, 

it's  also  a  clear,  detailed  tutorial  on  how  large,  complex  machine  language 
programs  can  be  constructed  out  of  manageable  subprograms. 

There  are  powerful  computer  languages  and  there  is  good  documentation, 
but  rarely  has  a  sophisticated  language  been  so  completely  documented 
as  it  is  in  this  book.  When  you  finish  with  this  book,  you'll  not  only  have  a 
deeper  understanding  of  machine  language — you'll  also  have  one  of  the 
most  powerful  machine  language  assemblers  available.  And  since  every- 
thing is  thoroughly  explained,  you  con  even  add  custom  features  to  the 
assembler  to  create  o  custom  tanguage  that  does  just  what  you  want  it  to 
(the  book  shows  you  precisely  how  to  modify  the  assembler). 

For  Commodore  64,  Apple  (II,  II -i-,  lie,  and  He,  DOS  3.3),  ViC-20  (8K  RAM 
expansion  required),  Atari  (including  XL,  40K  minimum),  and  PET/CBM  (Up- 
grade and  4.0  BASIC).  Disk  drive  recommended. 


Machined 
Language 


15%  Discount 
Buy  both  books  for 
f  25.00  and  save 
§4.90!  That's  157o 
off  ttie  retail  price! 

Offer  Expires  July  15,  1985. 


THE  LADS  Disk 

LADS,  fhe  assembler  used  in  The  Second  Book  of  Machine  Language,  is  available  on  disl<  for  only 
SI 2.95.  This  is  a  great  accompanimeni  1o  the  book,  saving  you  hours  of  typing  time  by  providing 
the  complete  source  and  object  modules  for  all  versions  of  the  assembler.  And  LADS  disks  are  spe- 
cific to  your  Apple.  Atari,  or  Commodore  computers. 


To  Order:  Call  Toll  Free  800-334-0868  (In  NC  919-275-9809)  or  mail  fills  coupon  wlfh  your  pay- 
ment fo  COMPUTEI  Books,  P.O.  Box  5058,  Greensboro,  NC  27403.  Offer  Expires  July  15,  1985. 


The  Second  Book  of  Machine  Language,  $14.95 

Machine  Language  for  Beginners.  $14.95 

LADS  Disk  CAppte)  $M.9S 

LADS  Disk  (A\arO  $12.95 

LADS  Disk  (Commodore),  $1 2.95 


D  Payment  Enclosed  (check  or  money  order) 

D  Charge    n  MasterCard    D  Visa    D  American  Express 

Acct.  No 

Signature 

Nome , 


Address . 

City  

Stot©  _ 


1  Boole  for 

2  Books  for 
LADS  Disk  for 


$14.95 
$25.00 
$12.95 

S 


Zip 


NC  residents  odd 
4.5%  soles  tox 

Shipping  and  handling 
(S2.00  per  book 
$1.00  per  disk) 

Total  Paid 

All  ortlers  must  De  prepaid 

Please  allow  i-i>  weeks  tor  deflveiy. 
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Solving 

Common 

Printer  Problems 

Selby  Bateman,  Features  Editor 


Few  things  in  computing  are  as  frus- 
trating as  a  recalcitrant  printer.  Here 
are  some  tips  on  how  to  find  relief. 


t  one  time  or  another,  every 
computer  user  looks  at  the 
paper  rolling  out  of  a  printer 
and  sees  something  that  seems  to 
have  been  sent  from  an  alternate 
universe.  That's  not  what  I  told  my 
computer  to  print! 

Your  neady  formatted  double- 
spaced  letter  is  being  printed  all  on 
one  line.  Or  your  beautiful  four- 
color  screen  illustration  is  appearing 
on  paper  as  a  series  of  capital  E's. 
The  italics  and  underlining  you've 
added  for  emphasis  in  a  report  have 
changed  the  rest  of  the  words  to  an 
unknown  foreign  language.  Or,  per- 
haps most  depressing,  the  paper  is 
simply  rolling  out  of  your  printer 
completely  blank. 

Nine  times  out  of  ten,  your 
printer  problems  won't  be  mechani- 
cal in  nature.  More  likely,  they'll  fall 
into  one  of  two  major  areas,  which 
we  may  call  interface /configuration 
mistakes  and  special  effects  errors. 

Problems  with  interfacing  and 
configuring  your  computer  and 
printer  usually  happen  during  your 
first  attempts  to  connect  everything 
together.  But  confusion  over  special 
effects — such  as  boldfacing,  under- 
lining, super-  and  subscripting,  and 
graphics — can  happen  even  to  the 
most  advanced  computer  user. 

No  matter  what  the  cause  of  a 
printer  problem,  it  is  a  frustrating 
experience.  Yet,  with  some  patience 
and  a  thorough  understanding  of 
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how  the  computer,  printer,  soft- 
ware, and  printer  interface  work  to- 
gether, you  can  unleash  all  of  the 
power  and  high-quality  per- 
formance packed  into  today's 
printers. 

hether  your  computer  is  a 
Commodore,  IBM,  Apple, 
Atari,  TI,  or  other  brand, 
you  should  become  familiar  with 
how  it  connects  to  a  printer.  Often 
an  extra  interface  is  required  to 
allow  an  otherwise  incompatible 
printer  and  computer  talk  to  each 
other, 

A  thorough  discussion  of  the 
many  printer  interfaces  for  micro- 
computers could  fill  a  book.  But  ba- 
sically, your  data  will  be  sent  from 
computer  to  printer  either  in  a  serial 
or  parallel  stream,  one  bit  at  a  time 
or  eight  bits  at  a  time.  Most  printers 
use  the  parallel  method.  Your  com- 
puter and  printer  manuals  will  tell 
you  which  kind  of  interface  to  use. 
But  you  should  also  know  that  some 
computers  require  additional  acces- 
sories to  work  with  certain  printers. 
For  example,  the  Apple  II  needs 
an  interface  cable  and  either  a  paral- 
lel or  serial  interface  card.  IBM  PCs 
need  either  the  standard  printer  in- 
terface card  for  parallel  connection 
or  an  asynchronous  serial  card.  A 
Commodore  64  can  hook  directly  to 
Commodore  printers  to  make  use  of 
the  special  graphics  symbols  and 
reverse-video  characters,  but  if  you 
want  to  print  special  character  sets, 
different  type  fonts,  or  foreign  lan- 
guage characters,  you'll  need  other 
printers  and  appropriate  interfaces. 
Similarly,  Atari  computers  hook  up 


directly  to  Atari  printers,  but  require 
the  850  Interface  Module  or  a  substi- 
tute to  work  with  other  printers. 

That  super-low-priced  printer 
might  not  look  like  such  a  bargain 
when  you  arrive  home  and  find  that 
you  not  only  need  an  additional  $35 
cable  but  also  a  $100  add-on  inter- 
face. Although  most  stores  selling 
printers  have  salespeople  to  help 
answer  your  questions,  you  should 
still  do  your  homework  with  com- 
puter manuals,  magazines,  and 
books. 

To  add  to  the  confusion,  the 
application  software  you  want  to 
use — such  as  a  word  processor  or 
graphics  program — can  add  its  own 
complications.  Unless  you  configure 
your  system  correctly,  what  you  end 
up  with  may  be  quite  different  from 
what  you  want. 

or  example,  let's  say  your  inter- 
a  "  face  automatically  sends  a  line- 
I  feed  instruction  which  tells  the 
printer  to  advance  the  paper.  Your 
word  processing  program  may  al- 
ready contain  a  similar  command. 
And  the  printer,  unless  adjusted, 
may  automatically  add  a  linefeed  as 
well.  As  a  result,  when  you  try  to 
print  out  a  single-spaced  letter,  the 
printer  may  be  following  instruc- 
tions to  put  two  or  three  linefeeds 
between  each  line  of  print.  Con- 
versely, you  could  also  end  up  with 
no  linefeeds  at  all.  The  entire  letter 
might  be  printed  on  a  single  line. 

The  solution,  of  course,  is  to 
enable  or  disable  the  linefeeds,  de- 
pending on  the  problem.  This  may 
involve  opening  up  the  printer  or 
interface  to  flip  a  switch,  or  issuing 
the  appropriate  command  with  the 
word  processor  program.  The  an- 
swers are  buried  somewhere  in  the 
manuals. 

Once  you've  got  the  printer  and 
computer  connected  properly,  you'll 
eventually  want  to  take  advantage 
of  the  advanced  options  which 
printers  now  offer.  The  special  ef- 
fects which  turn  your  system  into  so 
much  more  than  a  typewriter  are 
theoretically  quite  easy  to  control. 
The  complexity  stems,  once  again, 
from  all  the  configuration  possibili- 
ties, Versatility  has  a  price. 

Let's  consider  an  example  using 
the  SpeedScript  3.0  word  processor 
recently  published  in  COMPUTE!  for 
Commodore,  Atari,  and  Apple  com- 
puters. To  underline  a  word  with 


w: 


^■ 


y^' 


■«(i^-#^' 


i:''^^ 


/^ 


^1 


:']^ 


'->»y. 


i 


»s^^\^^' 


'  On  48K  diskEllfl  tor 
'  0)1 48K  diskflte  (of 
'OnHKoiskeStefortlie  i 


lesoRROM.  Apple  II 


^R 


^1 


I     m 


'  C-B4  (Commodore  «|  is  a  Irauenidft  of  Commo^ire  ElKhonics  IW. 


i.  3  1985  by   STRATEGIC  SinUIATIONS.    INC.    AllnsW^.e^™) 

'  there  are  no  convenient  store:;  near  you,  VISA  &  M/C  holders  can  order  directly  To  order  by  mail,  send  your  check  to:  ST' 

.  m  800-227-1617,  eit  335  (tdil  lrM|.  In  California,  call  800-772-3545,  ext.  335.  tin  Road,  BIdg.  A-200.  Mountain  View  CM 

I  specify  comptJter  format,  and  add  S2.00  for  shipping  and  handling.  lax.)  All  our  games  carry  a  ■'14-day  'satg 


r" 


WRITE  FOR  A  FUEE  COLOR  CATALOG  OF  ALL  OUR  GAMES. 
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^  THE  BEST  PRICES! 

We    will    meal    or   beat    any 
qualified  price  you  find. 

^  Next  day  shipping  on  all  in  stock 
items. 

^  Free  easy  access  order  inquiry. 

^  Orders  from  outside 

Pennsylvania  and  Nevada  save 
state  sales  tax. 

^  Free  tecfinicial  support  with  our 
factory  trained  tectinical  staff, 

v-  Ttiere  is  no  limit  and  no  deposit 
on  C.O.D.  orders. 

y'  There's  no  extra  charge  for 
using  your  credit  card.  Your  card 
is  not  charged  until  we  ship. 

i'  We  accept  purchase  orders  from 
qualified  oorporalions.  Subject  to 
approval. 

y-  Educational  discounts  available 
to  qualified  institutions. 

^  FREE  CATALOG  MEfi^BERSHIR 


PORTABLE  COMPUTERS 


EAST 

Dept.  A206,  477  E.  Third  St. 

Williamsport,  PA  17701 

WEST 

Dept.  A206,  P.O.  Box  6689 
Statellne,  NV  89449 

'.•EMBER  DIRECT  MARKETING  ASSOCIAflON 

CREDIT  CARDS 


^g 


SHIPPING"*""" 

Add  3%,  minimum  $5.00  shipping 

and  handling  on  all  orders.  Larger 

shipments  may  require  additional 

charges. 

All  items  subject  to  availability  and 

price  change. 

Returned  shipments  may  be  sub- 
ject to  a  restocking  fee. 


1  ■800-268-4559 

Othier  Provinces 


1-416-828-0866 

In  Toronto 

TELEX:  06-218960 

2505  Dunwin  Drive, 

Mississauga,  Ontario 

Canada  L5L1T1 

All  prices  shown  are  for  U.S.A. 

orders. 

Call  The  Canadian  Office  for 

Canadian  prices. 


APPLE 

APPLE  lie CALL 

APPLE  lie CAa 

MaclNTOSH CALL 

He  LCD  Display CALL 


Aatarf 


BAITERieSl 


NCLUOeO 


PaparClip  w/Spell  Pack S79.99 

Ttie  Consultant  DBMS S69.99 

Bus  Card  II $139,00 

BO  Col  Display $139.00 

^E  commodore 

CBM  8032 S639.0O 

CBM  4032 3599.00 

2031   LP  Disk  Drivo $299.00 

B050  Disk   Drive $949.00 

8250  Disk  DrivB $1249.00 

4023  Printer $329.00 

B023  Printar $589.00 

B400  Primer CALL 

Z-RAM $299.00 

Silicon   Otfioe 5299.00 

Professional  Software 

Word  Pro  4  Plus/5  Plus  each. ..$239.00 

Into  Pro $179,00 

Admlnislratof S399.0O 

Power $69.99 


%tJi 


HEWLETT 
PACKARD 


eSXE   [64KI ^ 

130XE  iizaK) ^^V^ 

130ST   1128K) *?ct* 

S20ST  [SiaK| ?* 


eOOXL  &  800XL  CALL 
WHILE  SUPPUES  LAST 

850  Inlortace $109.00 

1010  Racordar $49.99 

1020  Color  Pnnter $79.99 

1025  Dot  Matrix  Primer $199.99 

1027  LeSler  Quality  Printer $269.99 

1030  Direct  Connect  Modem $69.99 

1050  Disk  Drive $179.99 

Touch  Tablet $64.99 

7097  Atari  Logo $74.99 

4018  Pilot  (Home) $57.99 

5049  VisiCalc. $59.99 

CX30  Paddles $11.99 

CX40  Joystick $7.99 

4011  Star  Raiders $12.99 

4022  Pacl^an $16.99 

BOARDS  FOR  ATARI 

Axlon  32K $39.99 

Axlon  48K  (400) $69.99 

Axfon   12BK $269.99 

Micrabits  64K  1600) $109.00 

Bit  3  Full  View  80 $229.00 

^e  commodore 

NEW 

Commodore  128,  LCD..CALL 

SX-B4  Portable $499.00 

Commodore  Plus  4 S199.00 

CBM   64 $149.00 

C1541  Disk  Drive $199.00 

C1530  Datasotte $39.99 

M-aOl  Dot  Matrix  Printer $189.00 

M-802  Dot  MatrixySerial $219.00 

MCS  803  Dot  Matrix $179,00 

C1802  Color  Monitor S199.00 

C1660  Auto  Modem $59.99 

DPS  1101  Daisy  Primer $339.00 

pRrfiessional  Software 

Fleet  System  II  w/Sp6lli> $49.99 

File  (64) $59.99 

Report  (64) $49.99 

Precision  Software 

Superbase  64 $54.99 


41CV $189.99 

41CX $249.99 

HP  718 $419.99 

HP  1 1C $62.99 

HP  12C $89,99 

HP  15C, $89,99 

HP  16C $89.99 

HP  75D $999.99 

HPtL  Module $98.99 

HPIL  Cassette  or  Printer $359.99 

Card  Reader $143.99 

Extended  Function  Module $63.99 

Time  Module $63.99 

Wa  atock  tha  full  tin*  of 
HP  Cfllculator  products 

HEQ 

PC-8401 $749.00 

PC-B201  PonabiB  Computar,-,. $299,00 

PC-B231  Disk  Dnve.-.- $599.00 

PC-a221A  Thermal  Pnnters $149.00 

PC-a2aiA  Data  Recorder S99.99 

PC-8201.06  6K  RAM  Chips $105.00 

SHARR 

PC-1350 $159.99 

PC-1261 $159,99 

PC-1260 $109-99 

PC-1500A $165.99 

PC-1250A $88.99 

CE-125  Prinlar/CasseWB $128.99 

Ce-150  Color  Printer  Casselte.$171.99 
CE-161    16K  RAM S134.99 


HARD 
AUfiV 

PC  Stor CALL 

PC-Oisc CALL 

PC  OlC-Stor ; CALL 

PC  Back-up,., CALL 

EVEREX 

Hard  Drives CALL 

Tape  Back  Up CALL 

5  meg  Ramovable/lmemal $1399.00 

10  meg  Fixed/iniernal $1249,00 

15  meg  5  Removable/10  FixBd$2149.00 
25  mag  5  Rsmovabla/SO  FixedS2499.00 

£-M=Crt- 

10  meg  Bernoulli  Box $2149,00 

20  meg  Bernoulli  Box $2799.00 

■vRaiwSyslenns 

10  meg  Internal $699.00 

#MUOUUt 
ncHNOioaiis 
COMM.TTTD  TO  l*lJtCff^ 

12,  25.  35.  50,  BO  meg  |PC| 
from  $1499.00 

FLOPPY 

INDUS 

Apple  GT "^_rrr $209.00 

Atari     GT $249.00 

C-54     GT $259.00 

A1,5  Apple $199.00 

A2     Apple $199-00 

SDl   C-64  Single $269.00 

SD2  C-64  Dual S4B9.00 

■VRanaSyslenrtb 

nana  1000  (Atari) $199.00 

Elite  1  lAppla) $189.00 

■■naan 

320K  5W'  (PC) -.$129,00 


f/lODEIVlS 


^INCHOR 
volksmodeni, $59,99 

Voiksmodem  XII $1 89,99 

Mark  IL  Serial .,.,$79,99 

Mark  VII  (Auto  Ana/Auto  Dial)....S99.99 

Mark  XII  (1200  Baud) $259.00 

®Hayes 

Smanmodem  300 $199.00 

SmanmocJem  1200 $389.00 

Smartmodem  1200B ....$359,00 

Smartmodem  2400 ,...$699.00 

Micromodem  lie .., $249.00 

Smart  Com  II $89.99 

Chronograph , $199.00 


Reach  1200  Baud  Hall  Card.. .,$399.00 

m«>miCf!OBITS 

MPP-1000E  AD/AA  (Atari) $109,00 

MPP-1064  AD/AA  (C-64) 369,00 

|Nqnation|B 

Smart  Cat  Plus , $269.00 

Smart  Cat  103 $169.00 

Smart  Cat  103/212 $369,00 

AutoCat $189,00 

212  AutoCal  II $499,00 

Apple  Cat  II $229,00 

212  Apple  Cat  ll„. $379,00 

Apple  Cat  212  Upgrade $229.00 

Macmadem $319.00 

TELELEARNINO 

C64  300  Baud $49.99 

CT-1 ^. $339.00 

ZT-10 $309.00 

ZT-1 1 $369.00 

Z-22  Video  Data  Terminal $529.00 

maxell. 

5'/<"   MD-1 $17,99 

S'A"   MD-2 $23,99 

8"    FO-1 $39,99 

8"    FD-2 $49,99 

5%"   SS/DD $21.99 

5V."  DS/DD $29.99 

113 

S'/<"  Disk  Head  Cleaner $14.99 

Elephant  5V4"  SS/SD $14.99 

Elephant  5'/<"  SS/DD ST6.99 

Elephant  5Va"  DS/DD $19.99 

Elephant  EMSP  S'A, $24.99 

DISK  HOLDERS 

INNOVATIVE  CONCEPTS 

Flip-in-File  10 S3.99 

Flip-in-File  50 $17.99 

Flip-in-File  50  w/lock $24.99 

Flip-in-File  1400/800  ROM) $17.99 

AMARAY 

50  Disk  Tub $9.99 

Alarj rz.....""" $39,99 

C-64 $59.99 

IBM $89.99 

Apple/Franklin S79.99 

o 

p    - 

Super  Skelch  Pad  (C-64) $39.99 

Super  Sketch  Pad  (Alan) $39  99 

■Polaroid 

Palelte $1399.00 


MONITORS 


300  Green $129.00 

300  Amber $139.00 

310  A/nber  IBM-Plug $169.00 

30O  Color/Audio $Z39.0O 

Color  500  Composite/aGB $389.00 

Color  SOO  HI-Rbb  (640x240) $399.00 

Color  700  Hi-Res  |720x240| $499.00 

Color  710  Long  Phosphor. .,.,.. $579.00 


PRINTERS 


l)i 


BMC 

9191U  Color $179.00 


12"  Amber S69.99 

12"  Amber/Gfeen  TTL (ea.)  $119.00 

NEC 

JB  1260  Green S99.99 

JB  1201  Green $129.00 

JB  1205  Amber $129,00 

JC  1215  Color $229.00 

JC  1216  RGB $379.00 

JC  1460  Color $269.00 

JC  1410  RGB $669.00 


PRINCETON 


MAX-12  Amber ,..$189.00 

HX-12  RGB $469.00 

SR-12  RGB $629.00 

Scan  Dojbler  Board $199.00 

115  12"  Green  Mono $99.99 

116  12"  Amber  Mono $99.99 

121  Green  TTL $139.00 

122  Arabar  TTL $149.00 

210  Color  RGB $239.00 

400  Med-Hes  RGB $299.00 

410  Hi-Res  RGB $339,00 

420  Hi-Res  RQB  (IBM) $429.00 

440  Ultra  Hi-RBS  RGB $589.00 

8400  Ouadchramo $479.00 

6410  Quadcnromo  II $469.00 

8420  Amberchrome _..,.. $179,00 


2VM  122  Amber $89.99 

ZVM  123  Green,,.,. $89.99 

ZVM  124  IBM  Amber $149.00 

ZVM  131  Color $299.00 

ZVM  133  RGB  $429.00 

ZVM  135  RGB/Color $459,00 

ZVM  136  RQB/Color $599.00 


Graphcard $79.99 

Senall  Card $99.99 

Mjcrobufler  lU S169.00 

MiCfObuffer   32K $189.00 

Micfofazer from  $139.00 

Efazer  (Epson) (rom    $79.99 

HOronge  micro 

Grappler  CD  (C64) $99,99 

Grappler  -f  (Apple) $89,99 

Grappler  16K-f  (Apple) $169.00 

DIGITAL  DEVICES 

Ape  Face  (Aiari) $49.99 

Uprint  (Atari) $59.99 

Upnnt  (C-64) $59.99 

Primer  Buffer  P-16 $79.99 

mo  miCROBITS 

MB1150  Parallel  (Atari) $79.99 

MPP-1150  Parallel  (Atari) $69.99 

MP-1150XL  (Atari  1200XL) $69.99 

MicroSiuller  54K  Print  Buffer.., $109.00 


ffu.iJSL'-r-x 


AT-100  Atari  tnierface  Printer. ..S1S9. 00 

AT-550  Atari  Dual  Mode $259.00 

GP-100  Parallel  Interface S189.00 

GP-700  Atari  Color  Printer $489.00 

QP-550  Parallel  Printer $269.00 

I^BMC 

BX-80  Dot  Matrix _ $229.00 

#CITIZEN 

MSP.IO  (80  col) $349.00 

MSP-15  (132  col) $539.00 

MSP-20  (80  col.) $569.00 

MSP-25  (132  col.) $729.00 

crroH 

Prowritar  7600 $219.00 

Prowritor  8510P $299.00 

Prownler  1550P $469.00 

Son  of  Sianivriter  A10P S459.00 

Ho!  Dot   Matrix $459.00 

F10-40P  Starwritar $869.00 

Fto-55  Printmaster St 049.00 

ComWritertl  Latter  Quality $399.00 

DIABLO 

620  Letter  Quality $749.00 

630  API  Letter  Quality $1549.00 

d^sywriter 

2O0O $849.00 

EPSON 

RX-80,   FX-80-f.  LX-80,  JX-80 CALL 

FX-100-I-.  RX-100,  LQ1S00 CALL 

Homewriier  10 CALL 

aJUKr 

StOO., $399.00 

6300 $749.00 

MAHNEShUNN 
TALLY 

Spirit  80 $229.00 

teOL $499.00 

SEC 

8027  Transportable $319,00 

20ro;i  5/30/60 $699.00 

3510/15/30 $1299.00 

3550   IBM $1369.00 

eStO/15/30 $1679.00 

8850   IBM $1699.00 

ELF  360/370 CALL 

OKIDATA 

82,  83,  84,  92,  93,  182, 

2350,  2410,  Ohimate-20 CALL 

Okimate  10  (Specify  C64/Aiari)$i99.00 

OLYMPIA 

Needlepoint  Dot  Matrix S329.00 

Compact  RO $399,00 

Compact  2 $399.00 

Panasonic 

KX1090 $199.00 

KXt091 $279.00 

KX1092 S409.00 

KX1093 $599,00 

Quadiot ^^Z^. $749.00 

Si»  SityER-REED 

400  Letter  Quality $279.00 

500  Letter  Quality S329.00 

550  Letter  Quality S429.00 

770  Letter  Quality $779.00 

SQ10  (120  ops) ,....$239.00 

SG15  (120  cps) $399.00 

SD10  (160  cps) $359.00 

SD15  (160  Cps) $479.00 

SR10  (200  cps) $499.00 

SR15  (200  Cps) $639.00 

Powenype  Letter  Quality $319.00 

TOSHIBA 

1340  (BO  column) $599.00 

1351   (132  column) $1259.00 


PC  COMPATIBLES 


PC-150  Destttop CALL 

PC-160  Portable CALL 


2220  Dual  Portable ..$1999,00 

4220  Dual  Desktop $1999.00 

®  SAIWVO 

MBC  550-2  Single  Drive $699.00 

MBC  555-2  Dual  Drive $969.00 

MBC  775  Portable CALL 

ATAT 

Safari CALL 

6300 CALL 

corona 

PPC22  Dual  Portable $1599.00 

PPCXTA  10  meg  Portable $2799,00 

PC40022  Dual  Desktop $2199.00 

NEC 

pc-eaoo  a/16  bii $129900 


•  Lotus 

Symphony .,,$429,00 

1-2-3 $299,00 

Hayes 

Please  (Data  Base) - $199.00 


ivi'i  "'I'guTriiHWjpT^-iTii-    nrrrti  ■ 


PaachPack  {GL/AP/ARI $199.00 

lllMcraPiD 

WordStar  2000 $239.00 

WordStar  2000-f $299.00 

R:Base  4000 $249.00 

Clout  2-0 $129.00 

BSoItiMate 

Multi  Mate $249.00 

ii^ii:»i:^«:-iLi,a 

Crosstalk $89.99 

MCfiOSOFT. 

Fiighl   Simulator $39.99 

MultiPlan $129.00 

^HTONTATCB 

Framework $349,00 

dBASE  II $299.00 

dBASE  III $363,00 

Professional  Software 

PC  Plus/The  Boss $249,00 

synapse 

File  Manager.. „,. .."."...""■ $49.99 


.F.LECTR0N1C  ARTS- 

Get  Organized .,.,.$69.99 

Cut  -n-  Pasta $39.99 

Music  Construction $29.99 

One  -on-  One $29.99 

Financial  Cookbook $34.99 

Electronic  Desk $199.00 

BBOfltAnO 
INIEHNaliaUAL 

Turbo  Pascal $39.99 

Sideliick $39.99 

sn 

Open  Access $379.00 

^  I iai-viinl  Software  IrK". 

Harvard  Pro|ect  Manager $209.00 

Total  Project  Manager $269.00 


V^' 


IBM/APPLE 

Access  (WEW) $79,99 

Write/Grapti/File (ea,)  $79.99 

Report $74.99 

Plan .$79.99 

Prool $59.99 

Mac  Software CALL 

SSI 
Word  Parlect , $239.00 

Human  Edge™ 

Communication  Edge $99.99 

Management  Edge,,.,,,.. ,,$1 19,00 

Negotiation  Edge $139.00 

■Sales  Edge $1 19.00 


IBM  PC  SYSTEMS 
Configured  to  your 

specifications. 
Call  for  Best  Price! 


JNCTION  CARDS 


MAI $249,00 

Six  Pack  Plus $239.00 

Mega  Plus  II $269.00 

I/O  Plus  II $139.00 

Memory  MBII $249,00 

Advantage-AT $399.00 

Preview  Monograph $299,00 

Graph  Pak  Mono/64K $599.00 

MonoQraph  Plus $399.00 

5251/11 CALL 

5261/12 $579.00 

3780 $639.00 

BSC $499.00 

deei 

IRMA  3270.... .....~, $899.00 

IRfl(A  Print $999.00 

EaGL£ 

Color $199.00 

Mono $149.00 

EVEREX 

Color  Card  (Graphics  Edge) $299.00 

Magic  Card $199.00 

Graphlcs,.?:?.l?5y-Li^ $319,00 

Color, $169.00 

n)E4$$oi3aics 

IDEAmax  -  ZPR,  64K,  C,  S,  P.$229,00 

IDEAraini  -  YPR,  C.  S,  P $189,00 

IDEAminimax  -  MPR  12flK S229.O0 

IDEAshare  Sottvjare $219.00 

IDEA   5251 $699.00 

PARADISE 

Modular  Graphics  Card ,..$279.00 

Multi  Display  Card S299.0O 

Five  Pack  C,  S $159.00 

PLANTRONICS 

Color  Plus $369.00 

Captain  -  64 $239.00 

Captain  Jr.  128K $339.00 

Graptiics   Master $469.00 

Quadboard  II $229.00 

Expanded  Quadboard $239.00 

Quad  512 -h $249.00 

Quad  2  Meg $879.00 

Memory  Board $229.00 

QuadJr  Exp.  Chassis $539.00 

QuadJr  Exp.  Memory $219.00 

QuadMsmJr $229.00 

Chronograph $89.99 

Parallel  Card $69,99 

Quadcolor  I $219,00 

Quadgraph $37900 


KEYBOAnOS 

Keytiorics  Keyboards  5150,  5151. 

5161  Jr.  6149  Jr CALL 

MEMORY  CHIPS 

4164  RAM  Chips (ea.)$2.39 


SpeedScript,  you  send  a  control  code 
to  the  printer  which  backspaces  and 
underlines  after  each  character.  But 
to  Commodore  1525  or  801  printers, 
the  code  that  most  other  printers 
understand  as  backspace  is  read  as  a 
command  to  enter  graphics  mode. 
Such  conflicts  are  unavoidable,  be- 
cause there  are  so  many  different 
printers  and  control  codes. 

Whether  you're  just  getting 
started  with  printers  or  are 
moving  on  to  advanced 
printing  features,  there  are  a  few 
basic  concepts  you  should  under- 
stand. If  you're  having  printer  prob- 
lems, check  this  list  to  be  sure  you're 
familiar  with  each  item.  If  you're 
not,  invest  some  time  exploring  your 
computer,  printer,  software,  and  in- 
terface manuals  to  find  a  solution. 

•  ASCII  (pronounced  "AS- 
key").  American  Standard  Code  for 
Information  Interchange.  A  code 
that  uses  numbers  from  0  to  127  to 
represent  letters,  numbers,  punctua- 
tion symbols,  and  special  control 
codes.  Each  code  number  consists  of 
seven  bits  (binary  digits).  An  eighth 
bit  may  be  added  for  parity  (see 
below).  The  first  32  ASCII  numbers 
are  control  codes  which  can  tell  your 
printer  to  perform  actions  such  as 
linefeeds,  carriage  returns,  back- 
spaces, and  vertical  and  horizontal 
tabs. 

Commodore  and  Atari  comput- 
ers use  a  slightly  different  form  of 
ASCII  which  can  cause  translation 
problems  with  some  interfaces  and 
printers  unless  they  are  correctly 
configured. 

•  Baud  rate.  A  measure  of  data 
transmission  speeds,  synonymous 
at  lower  speeds  with  bits  per  second. 
Computers  can  send  data  much  fast- 
er than  printers  can  produce  images 
on  paper.  Consequently,  the  printer 
and  interface  must  tell  the  computer 
to  send  data  in  bursts  short  enough 
for  the  printer  to  handle. 

•  Buffer.  In  a  printer  or  inter- 
face, the  memory  area  in  which  data 
is  held  after  being  sent  from  the 
computer.  Printer  buffers  can  be  as 
small  as  one  line  of  characters  or 
range  upward  to  thousands  of  bytes 
of  data.  If  the  buffer  is  large  enough, 
it  can  hold  all  of  the  data  you  want 
to  print,  thus  freeing  the  computer 
for  other  tasks  while  the  printer  goes 
about  its  work.  The  printer  controls 
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the  speed  at  which  the  data  leaves 
the  buffer  and  is  printed  on  the 
paper. 

•  Centronics-standard  parallel 
connection.  A  printer  interface 
which  allows  data  to  be  sent  along 
separate  wires  eight  bits  at  a  time  in 
a  parallel  flow.  Most  printers  use  a 
parallel  interface  to  receive  data 
from  the  computer.  Some  comput- 
ers, however,  must  transmit  data 
through  a  serial  interface  (see  RS- 
232'Standard  serial  connection).  The 
Centronics  interface,  named  after 
the  printer  company  which  popular- 
ized it,  is  the  most  common  type  of 
parallel  interface  on  personal 
computers. 

•  Character  set.  The  letters, 
numbers,  and  symbols  which  a 
printer  or  computer  can  produce. 
Note  that  many  computers  can  dis- 
play characters  which  the  printer 
cannot  reproduce,  and  vice  versa. 
Some  printers  are  capable  of  print- 
ing foreign  character  sets  when  you 
change  the  DIP  switch  settings.  (See 
DIP  switches). 

•  Control  codes.  Nonprintable 
commands  sent  from  the  computer 
to  a  printer  for  special  actions,  such 
as  backspacing,  carriage  returns,  line- 
feeds, tabs,  and  margin  settings. 

•  DIP  switches  (Dual  In-line 
Package).  Small  switches  located  on 
a  printer  or  interface  which  can  con- 
trol a  variety  of  options,  such  as 
baud  rates,  automatic/manual  line- 
feeds, printing  impression  levels,  in- 
ternational character  sets,  types  of 
paper,  form  lengths,  line  spacing, 
and  other  parameters.  Some  printers 
and  interfaces  allow  easy  access  to 
DIP  switches,  while  others  require 
you  to  take  apart  the  case. 

•  Emulation.  In  terms  of  print- 
ers, a  mode  of  operation  which  mi- 
mics another  type  of  operation.  For 
instance,  some  printer  interfaces  let 
a  non-Commodore  printer  emulate 
a  Commodore  printer,  allowing  you 
to  print  the  computer's  special 
graphics  symbols  and  reverse- video 
characters. 

•  Escape  codes.  Control  code 
sequences  which  let  you  print  cer- 
tain characters  not  included  in 
ASCII  codes,  or  which  activate  spe- 
cial printer  features  such  as  boldfac- 
ing, italics,  expanded  or  condensed 
type,  and  so  on.  Escape  sequences 
are  preceded  by  the  escape  character, 
ASCII  27.  These  sequences  can  be 


sent  to  the  printer  in  BASIC  from 
your  computer  keyboard,  or  by  the 
application  software  (such  as  a  word 
processor).  For  example,  ESC  H 
might  represent  a  British  pound 
sign,  ESC  P  might  turn  on  or  off  the 
proportional  spacing  option  on  your 
printer,  and  ESC  BS  may  determine 
the  amount  of  space  between  char- 
acters in  backspacing. 

•  Firmware.  Software  perma- 
nently burned  into  a  ROM  chip 
(Read  Only  Memory) — a  cross  be- 
tween hardware  and  software. 
Printers  contain  firmware  to  control 
their  printing  options.  Sometimes 
you  can  replace  this  chip  with  an- 
other to  add  more  printing  features. 

•  Parity.  A  way  for  your  com- 
puter and  printer  to  check  the  accu- 
racy of  the  data  being  sent.  An  extra 
bit  is  added  to  the  end  of  a  seven-bit 
ASCII  code  representing  a  particular 
character.  The  computer  checks  the 
extra  bit  to  verify  that  the  data  was 
not  scrambled  during  transmission. 

•  Proportional  spacing.  Many 
printers  today  can  vary  the  spacing 
between  characters,  as  typesetters 
do.  Typewriters  have  fixed  spacing 
between  all  letters.  For  example, 
proportional  spacing  allows  more 
room  for  a  capital  M  or  W  and  less 
room  for  a  lowercase  i  or  1. 

•  Protocol.  All  the  rules  and 
instructions  controlling  the  way  in 
which  data  is  sent  and  received  be- 
tween the  computer  and  printer. 

•  RS-232-standard  serial  con- 
nection. A  type  of  interface  that 
transmits  data  along  a  single  wire 
one  bit  at  a  time,  or  serially.  Al- 
though most  printers  use  a  parallel 
interface  to  receive  data  from  a  com- 
puter, some  computers  and  printers 
require  a  serial  interface.  When  all 
other  factors  are  equal,  a  serial  inter- 
face is  slower  than  a  parallel  inter- 
face— but  this  is  rarely  important 
with  printers,  whose  speeds  are  de- 
termined by  mechanical  limitations 
anyway. 

•  Tractor-feed.  A  pair  of  cogged 
wheels  and  guide  wires  that  helps 
continuous-form  paper  roll  through 
a  printer.  Some  computers  have 
built-in  tractors,  and  others  offer 
them  as  options. 

•  Transparency.  A  mode  of  op- 
eration for  printer  interfaces  in 
which  serial  data  is  changed  to  par- 
allel data  without  converting  the 
original  values  of  the  data.  © 
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Edward  H.  Carlson 

If  you  are  acquainted  with  BASIC, 
■you  can  easily  write  your  own 
games  and  applications.  Thirty- 
three  sections  are  Included,  with 
Instructor  notes,  lessons,  assign- 
ments, and  lively  Illustrations  to 
entertain  and  amuse  you.  Kids 
and  the  IBM  PC  and  PCjr  Is  oiso  a 
good  tutor  on  programming  your 
PC  or  PCjr  thot  will  offer  the  iDest 
possible  introduction  to  BASIC. 
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Charles  Brannon 

SpeBdSaipt,  the  most  popular 
program  ever  published  by 
COMPUTEI  Publications,  is  a 
commercial-quality  word  proces- 
sor for  the  expanded  VIC  and 
Commodore  64  computers.  In- 
cluded are  all  the  programs  and 
documentation  necessary  for 
both  versions  of  SpeedScript.  In 
addition,  we've  Included  source 
code  and  documentation  about 
SpeedScript  that  tiave  never 
been  published  before.  For  the 
price  of  the  book,  you  get  a 
commercial-quality  word  proces- 
sor— perhaps  one  of  the  best 
software  bargains  ever.  Disk  avail- 
able which  includes  programs  in 
the  book. 


Edited 

Now  for  the  Commodore  64  and 
the  Commodore  1 28,  this  collec- 
tion brings  together  some  of  the 
best  games,  applications,  and 
utilities  from  COMPUTEI  Publica- 
tions. All  programs  run  on  the  M 
and  the  128  running  in  64-mod©. 
AddlttonQlly,  there  ore  sections 
detailing  the  advanced  special 
features  of  the  powerful,  new  1 28 
computer.  Disk  available  which 
Includes  programs  In  the  book. 


Arian  R.  Levltan  and  Sheldon 
Leemon 

Learn  the  Ins  and  outs  of  tele- 
computing on  youf  IBM  PC  or 
PCjr.  From  selecting  a  modem  to 
evaluating  terminal  software. 
COMPUTBI's  Telecomputing  on 
the  IBM  wilt  guide  you  through  the 
steps  in  cleor,  everyday  larv 
guage.  Getting  online  with  a  lo- 
cal bulletin  board  or  an 
information  service  such  as  Dow 
Jones,  The  Source,  or  Compu- 
Serve is  made  eosy  by  the 
explanations  offered  in  this  book. 
There's  a  world  of  information 
available  to  you  through  your 
IBM,  and  COMPUTEI'S  Tele- 
computing an  the  IBM  wlU  help 
get  you  online  quicldy  and  easily. 


Thomas  E.  Enright,  Joan 
NIckerson,  and  Anne  Wayman 

This  informative  and  easy-fo- 
understohd  book  shows  the 
beginner  how  to  use  the  Apple  lie 
to  communicate  with  other 
computers  over  the  phone.  Bul- 
letin boards  and  Informational  ser- 
vices such  as  The  Source, 
CompuServe,  and  Dow  Jones  are 
fully  explored.  Other  useful  infor- 
nratksn  descriioes,  in  plain  English, 
ever/thing  a  buyer  needs  to 
know  before  selecting  a  modem 
or  telecommunications  software 
for  the  lie. 


Dan  Gutman  and  Shay  Addams 

With  hundreds  of  computer 
games  available  for  every  home 
computer,  how's  a  gome  enthu- 
siast to  decide  which  ones  to 
buy?  The  Greatest  Games,  writ- 
ten by  the  founders  and  editors 
of  Computer  Gomes  magazine, 
has  the  answers.  It  contains  lively. 
In-depth  reviews  of  the  93  great- 
est computer  games.  Eighteen 
different  types  of  games  ore  re- 
viewed, including  role-playing 
gomes,  graphic  adventures, 
sports  games,  and  classic  arcade 
games.  This  Is  a  book  every  com- 
puter game  lover  will  wont  to 
own. 


Christopher  Flynn 

A  complete  home  apfjilcations 
system  o(  25  integrated  programs 
that  truly  put  the  speed  and 
power  of  the  PC  or  PCjr  to  work 
In  the  home.  The  system  includes 
a  spreadsheet  appointment  cal- 
endar, electronic  filing  system, 
groph  creation  programs,  and 
much  more.  Each  program  is 
cleariy  explained,  well- 
documented,  ond  will  run  on  the 
PC,  with  or  without  the 
Color/Graphics  Monitor  Adapter, 
as  well  as  on  any  PCjr.  Disk  avail- 
able which  Includes  programs  in 
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These  titles  are  available  at  your  focal  book  or  computer  store,  or  you  may  order  directly  from  COMPUTE!  Books. 

To  order,  call  toll  free  800-334-0868,  or  send  your  check  or  money  order  (Including  $2.00  per  book  for  stilpplng 
and  handling)  to  COMPUTE!  Books,  P.O.  Box  5058.  Greensboro,  NC  27403. 


Webster  Dines  Out 


Wolter  Bulawo 

Tired  of  blasting  invaders  from  outer 
space?  This  whimsical  game  is  set  in  a 
very  different  world — the  miniature 
jungle  in  your  own  backyard.  The  orig- 
inal version  was  written  for  the  Atari. 
We've  added  versions  for  Apple,  TI, 
Commodore  64,  VlC-20,  and  IBM  PC 
and  PCjr  computers.  A  joystick  is  re- 
quired for  the  Atari  and  Commodore 
64  versions. 


Guide  Webster,  the  hungry  tree  spi- 
der, in  his  endless  search  for  a 
square  meal.  Roving  back  and  forth 
across  his  tree  limb,  he  watches  for 
bugs  to  appear  in  the  grass  below. 
When  the  time  is  right,  he  drops 
down  on  a  strand  of  silk  for  a  light 
snack,  then  climbs  back  up  his  web 
to  look  for  more. 

Unfortunately,  this  backyard 
paradise  isn't  quite  perfect.  The 
more  Webster  eats,  the  faster  the 
bugs  move,  making  it  harder  to  find 
the  next  meal.  Even  worse,  he's  not 
the  only  one  with  an  appetite — 
there's  a  speedy  scorpion  sharing 
the  same  hunting  ground,  stealing 
bugs  when  he  can  and  giving  Web- 
ster a  sting  whenever  he  drops  too 
close. 

Atari  Version 

Program  1 — the  Atari  version  of 
"Webster  Dines  Out" — will  run  on 
any  Atari  computer  with  at  least  32K 
memory.  Use  the  joystick  to  move 
Webster  left  or  right  at  the  top  of  the 
screen.  When  a  bug  passes  below. 


press  the  button  to  make  him  drop 
down. 

Your  goal  is  to  score  points  as 
quickly  as  possible.  Each  bug  is 
worth  25  points  and  you  get  50  bo- 
nus points  for  snaring  two  bugs  in  a 
single  drop.  Webster  has  three  lives 
in  each  game;  getting  stung  by  the 
scorpion  costs  you  a  life  but  does  not 
reduce  your  score.  The  scorpion  is  a 
tough  competitor:  When  Webster 
drops  down,  the  scorpion  speeds  up 
to  increase  his  chances  of  stealing  a 
bug. 

There  are  six  skill  levels,  each 
harder  than  the  last.  As  you  advance 
to  higher  levels,  the  bugs  and  scor- 
pion speed  up,  the  grass  grows  long- 
er, and  a  grey  rock  appears  in  the 
lawn.  The  other  creatures  hide  be- 
hind these  objects,  but  Webster  can 
drop  behind  them  too.  The  game 
ends  when  you  lose  all  three  lives  or 
exhaust  your  time  at  the  highest 
skill  level. 

Commodore  64  And  VIC-20 
Versions 

Both  Commodore  versions  of  Web- 
ster Dines  Out  are  scored  like  the 
Atari  game — 25  points  for  each  bug, 
with  a  50  point  bonus  for  capturing 
two  at  once.  You  begin  with  three 
lives,  and  lose  one  each  time  you 
collide  with  the  scorpion. 

The  64  version  (Program  2)  is 
played  with  a  joystick  in  port  2.  The 
bugs  and  scorpion  move  across  a 
sloping,  multicolored  lawn;  at  high- 
er skill  levels,  colorful  objects  grow 
up  to  obscure  your  view  of  the 
ground.  Play  ends  when  your  lives 
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Looks  like  a  Ferrari. 
Drives  like  aRolls. 
Parks  like  a  Beetie. 


CT  ior  Alari  shown 


Ask  your  computer  dealer  to  let  you  test  drive 
the  all  new  Indus  GT.™ 

The  most  advanced,  most  handsome  disk 
drive  in  the  world. 

Flip  its  power  switch  and  ... 
Turn  your  Atari  into  Ferrari. 
Unleash  your  Apple. 
And  now  turbocharge  your  Commodore. 

Looks  like  a  Ferrari. 

The  Indus  GT  is  only  2.65"  high.  But  under  its 
front-loading  front  end  is  slimline  engineering 
with  a  distinctive  European-Cran  flair. 

Engaging  its  AccuTouch™  buttons  lets  you 
control  the  LED-lit  CommandPost™  Marvel  at 
how  responsive  it  makes  every  Commodore, 
Apple  and  Atari  personal  computer. 

Drives  like  a  Rolls. 

Nestled  into  its  soundproofed  chassis  is  the 
quietest  and  most  powerful  disk  drive  system 
money  can  buy.  At  top  speed,  it's  virtually 
inaudible, ..whisper  quiet. 

Built  into  each  Indus  GT  is  a  perfect 
combination  of  craftsmanship  and  advanced 
engineering.  Luxurious  styling  reflects  the 
personal  tastes  of  each  GT  owner. 

♦Included  as  standard  equipment. 
For  dealer  mformation,  call  (816)882-9600. 

©1985  Indus  Systems,  9304  Deering  Avenue,  Chatsworth,  CA  91311.  ThelndusGTisaproductof  Indus  Systems.  Atari  isa  registered  trademark  of  Atari,  Inc.  Apple  isa  registered 
trademark  of  Apple  Computer,  Inc.  Commodore  is  a  registered  trademark  of  Commodore  Business  Machines,  Inc. 


And  each  GT  comes  with  the  exclusive  CT 
DrivingSystem™  of  software  programs.*  World- 
class  word  processing  is  a  breeze  with  the  CT 
Estate  WordProcessor™  Your  dealer  will  describe 
the  two  additional  programs  that  allow  GT 
owners  to  accelerate  their  computer  driving  skills. 

Also,  the  Indus  GT  is  covered  with  the 
GT  PortaCase™  A  stylish  case  that  conveniently 
doubles  as  a  80-disk  storage  file,* 

Parks  like  a  Beetle. 

The  GT's  small,  sleek,  condensed  size  makes 
it  easy  to  park. 

A  WarrantyPlus™  package  is  included  with 
every  Indus  GT,  featuring  full  year  parts  and  labor 
on  the  complete  drive  train. 

Drive  home  a  winner  and  park 
an  Indus  GT  next  to  your 
personal  computer. 


INDUS 


The  all-new  Indus  GT  Disk  Drive. 

The  most  advanced,  most  handsome  disk  drive  in  the  world. 


BUY  THE  BEST- BEST-SELLING 
ITLES  FROM  COMPUTE!  BOOKS 

We  offer  you  six  best-selling  books  designed  especially  for  your  Inome,  educational,  and  recreationaf  computing. 

Each  book  is  filled  with  step-by-step  instructions,  helpful  tutorials,  and  creative  hands-on  applications.  COMPUTEI 

books  are  carefully  written  so  that  any  computer  user  can  easily  understand  and  enjoy  them  to  the  fullest. 

This  industry-leading  selection  includes: 


The  Second  Book  of  Mochlno 
Languog« 

Richard  Mansfield 
$14.95 

The  follow-up  to  the  best-sefling 
Machine  Language  for  Beginners, 
this  book  shows  how  to  construct 
significant,  effective  machine  tan- 
gucg©  progroms.  It  includes  a 
high-speed,  professionaf-quality, 
label-based  assembler,  and  every- 
thing that's  needed  for  optimized 
programming  on  the  Commodore 
64,  Apple,  Atari,  VIC-20,  and 
PET/CBM  computers. 


COMPUTEI'*  Third  Book  of 
Commodofo  64 

Edited 
$12.95 

The  third  In  a  collection  of  Infor- 
mative, entertaining,  ond  educa- 
tional games,  oppllcatlons, 
tutoriais,  and  utilities  for  Com- 
modore 64  users, 


MAPPING 

THE 

Commodoie 

64 
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COMPUtB'*  Commodore 
Colloctton,  Volume  2 

Edited 
$12.95 

This  second  volume  In  COMPUTEi's 
Commodore  Collection  series  in- 
cfudes  exciting  games,  sophis- 
ticated applications,  versatile 
educational  routines,  ond  helpful 
progrommfng  aids  for  VIC-20  and 
Commodore  64  owners. 
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COMPUTEI'S  FIrct  Book  of  Apple 

Edited 
$12.95 

A  collection  of  35  exciting  games, 

educational  programs,  home 

applications,  and  graphics 

routines  for  owners  of  Apple  II,  lie, 

and  lie  computers. 


Mopping  ttie  Commodore  64 

Sheldon  Leemon 
$14.95 

An  excellent  and  comprehensive 
memory  mop  and  programming 
guide  for  intermediate  to  ad- 
vanced programmers, 


COMPUTEi's 

Machine 
Language 

Routines 

for  tin 

Commodore 
64 
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COMPUTEI't  Machine  Language 
Routine*  for  ttw  Commodore  64 

Edited 
$14.95 

Complete  machine  language 
programs  and  easy-to-use 
routines  you  can  learn  from  and 
use  in  your  own  programming. 


You'll  find  these  and  other  best-selling  titles  from  COMPUTE!  Books  at  a  store  near  you  listed  in  the 
folfowing  pages.  Visit  one  of  these  stores  today  to  find  COMPUTE!  books,  the  best  in  personal 

computer  publications, 

COMPUTE!  Publicationsjnc.® 

One  01  the  ABC  PuCHishinQ  Companies  ^^^P 

324  W,  WiBfidover  Avefiue.  Surte  200  Greeraljoto.  NC  27403.  5W.275.98W 
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Look  for 
COMPUTE!  Books 

of  the 
following  sfores. 


Alabama 

Madison  Books  ond  Computers 

Madison  Moil 

8006-5  Madison  PJ<e 

Modison.  AL  35753 

Artuna 

Books  Etc. 

901  S.  Mill  Ave. 

Tempe.  AZ  85281 

Callfomlo 

Aztec  Shops.  Ltd. 

Son  Diego  State  University 

San  Diego.  CA  92!  82 

Associates  Students  UCLA 

General  Book  Dept. 

308  Westwood  Plaza 

Los  Angeles.  CA  90024 

Bookmania 

25590  Seaboard  lane 

Havword.  CA  94545 

Computer  Literacy 

520  Lowrence  Expressway  #310 

Sunnyvole,  CA  94086 

M,  T.  S-  Inc. 

Tower  Books  Div 

7830  Mocy  Plaza  Dr. 

Citrus  Heights.  CA  95410 

M,  T.  S,  Inc. 

Tower  Books  #1 4 

2536  Watt  Ave. 

Sacto,  CA  95821 

University  Bookstore,  QOOB 

University  o(  California.  San  Diego 

La  Jollo,  CA  92093 

(619)452-3149 

University  Bookstore 

University  Avenue  East 

P.O.  Box  5800 

Riverside,  CA  92507 

University  Bookstore 

University  Center 

University  of  California 

Irvine.  CA  92717 

(714)856-7412 

Polomor  College  Bookstore 

1140  W.  Mission 

Son  Marcos,  CA  92069 

Titan  Bookstore 

4999  Cosa  Loma  Ave. 

YortM  LIndo.  CA  92666 

Connactfcut 

Klein's  of  Westport 

44-50  Main  Street 

Westpoft,  CI  06BB0 

UConn  Co-op 

61  FoirtlBld  Road 

Storrs,  CT  06268 

Dalawar* 

Castle  Video,  Inc 

27  Chestnut  Hill  Plaza 

Nework.DE  19713 

McMahon's 

101  Chnstiona  Mall 

Nework.  DE  19702 

Encore  *8122 

Talleyville  SC 

Silverside  Rd,,  Rt,  202 

Wilmington,  DE  19810 

DIttrlcl  ot  Columbia 

Reiter's  Scientific  and  Professional 

Books 

21 20  Pennsylvanka  Ave.,  N. W. 

Washington.  DC  20037 

Florida 

Paperback  Booksmlth 

400  NortniQke  Blvd. 

f^orth  Palm  Beach,  FL  33408 

DuBeys  News  Center 
IISS.  Monro©  Street 
Tallohossee.  FL  32301 
The  Sook  Nook 
4345-2  University  Blvd.  S, 
Jacksonville,  FL  32216 
Book  Trek 

3734  Blanding  Blvd. 
Jacksonville,  FL  32210 
Monocie  Book  Stoi-e 
Tamp  Inf  AP. 
Tampa.  FL  33607 


Georgia 

Oxford  Books  Inc. 

2345  Peachtree  Rd..  N.£. 

Aflcnta,  SA  30305 

Havrall 

Honolulu  Book  Stops,  ltd, 

287  Kollhi  Street 

Honolulu,  HI  96819 

llllnoto 

Krochs  S.  Brentonas 

1028  Lake  St, 

Oak  Pork,  IL603C1 

Krochs  &  Brentonas 

J-6  Evergreen  Plaza 

Evergreen  Pork.  IL  60642 

Krochs  8c  Brentonos 

18  River  Ooks  Center 

Cclumet  City,  IL  60409 

Krochs  &  Brentonos 

159  Lincoln  Moll 

Motteson.  IL  60443 

Krochs  8i  Brentonos 

E-108  Cherry  Vole  Mall 

RockfOfd.lL  61112 

Krochs  &  Brentonos 

Rondhurst  S/C 

999  Elmhurst  Rd. 

Mt,  Prospect,  IL  60056 

Krochs  &  Brentonos 

2284  Fox  Volley  Center 

Auroro,  IL  60505 

Krochs  &  Brentonos 

100  Orlond  Square 

Orland  Pork.  IL  60462 

Krochs  &  Brentanos 

U11  Sherman  Ave. 

Evonston,  iL  60201 

Krochs  &  Brentanos 

36  Old  Orchard  Ctr..  N.  Mall 

Skokie.  iL  60077 

Krochs  &  Srentanos 

80  Ookbtook  Cti. 

OokBrook.  IL  60521 

Krochs  8i  Brentanos 

106  Howthotne  Ctr. 

Vernon  Hills.  IL  60061 

Krochs  St  Brentanos 

J-108  Wood  field  Mall 

Schoumburg,  IL  601 95 

Krochs  8t  Brentanos 

516  N.  Michigan  Ave, 

Chicago,  IL  6061 1 

Krochs  8i  Brentanos 

836  N.  Michigan  Ave, 

45th  Floor  Wotei  Tower  Plozo 

Chicago,  IL  60611 

Krochs  8i  Brentanos 

IDS  W.  Jackson 

Chicago.  IL  60604 

Krochs  &.  Brentanos 

29  S,  Wobosh 

Chicago.  IL  606O3 

Indiana 

Von's  Bookshop  Computer 

Center 

315  W,  State  St. 

W.  Lofayette.  IN  47906 

Book  World 

192  University  Park  Moll 

Mishawaka,  IN  46545 

louMana 

SoundTrek  Audio' 

5703  Reod  Blvd. 

New  Orleans,  LA  70127 

SoundTrek  Audio 

4420  1-10  Service  Rd, 

Metarle,  LA  7000) 

SoundTrek  Audio 

400  Lapoico  Blvd. 

Gretna,  LA  77053 

Morytand 

R.  W  Electronics  &  Computer 

Ctr. 

8070  A  Jumpers  Mall 

Posodeno.  MD21122 

Collins  Brothers  Enterprises 

Computer  Comer 

29  N.  Potomac  St. 

Hagerstown.  MD  21 740 


Rockvlile  Sales 

11807  lldewood  Rd. 

Silver  Spnng.  MD  20906 

Softwore  Store 

e42-A  Rockvlile  Pike 

Rockvlile,  MD  20852 

Software  Store 

7315  Wisconsin  Ave 

Bethesda.  MD  20814 

Maryland  Book  Exchonge 

4500  College  Ave. 

College  Pork.  MO  20740 

Mauachusattl 

Boston  Univ.  Bookstore 

660  Beacon  Street 

Boston.  MA  0221 S 

IVortheostem  University  Bookstore 

360  Huntington  Avenue 

Boston,  MA  021 15 

Michigan 

Chi  Town  Records 

228  State  St. 

Oscoda.  Ml  48750 

I.  O.  Software    ' 

3600  South  Dort  Hwy, 

Flint,  Ml  48507 

Little  Professor  Book  Center 
8387  W.  Grand  River 
Brighton,  Ml  48116 
Little  Professor  Book  Center 
22174  Michigan  Avenue 
Deartxsm,  Ml  48124 
Little  Professor  Book  Canter 
371 15  Grand  River 
Formington,  Ml  48024 

Merit  Books' 

22425  Kelly  Rood 

Eost  Detroit,  Ml  48021 

Metro  News 

6608  Telegroph 

Birmingham,  Ml  4801 0 

Town  Center  Bookstore 

3000  Town  Center 

Southfleld,  Ml  48075 

Hvw  Hampihlra 

Marjen  Books.  Irtc  cKm 

Paperbock  Booksmith/Musies/fiith 

Newington  Moll 

Portsmouth,  NH  03801 

The  Colonial  Bookshoope 

Upper  Valley  Plaza 

West  Lebanon,  NH  03784 

N«w  Jtnvy 

Village  Computer  &  Software 

Center 

Morris  County  Moll 

RidgeOQie  8i  Hanover  Aves. 

Cedar  Knolls.  NJ  07927 

Encore  Books  #81 04 

The  Matltet  Pkjce  SC 

1990  MorttonPike 

Cheriv  Hill,  NJ  08003 

Encore  Books  #81 1 7 

Eagle  Plaza  SC 

34  Benin  Rd. 

Voorhees,  NJ  08043 

Encore  *B121 

Village  at  Taunton  Forge 

Tucksrton  Teuton  Rds. 

Medtord.  NJ  08055 

The  Princeton  University  Store 

36  University  Place 

Princeton,  NJ  08540 

The  Program  Store 

l?t.  35  8i  Wycoff  Rood 

Monmouth  MoR 

Eatontown,  NJ  07724 

The  Program  Store 

1344  Willowbrook  Mall 

Woyne,  NJ  07470 

Naw  York 

Software  City 

1 34  Village  Landing 
Fairport.  NY  14450 
Village  Green  Bookstore 
766  Monroe  Ave. 
Rochester,  NV  14607 
McGraw  Hill  Bookstore 

1 35  W.  48th  St 
New  York.  NY  10020 
Book  Revue 
31 3  New  Yoi1<  Ave. 
Huntington,  NY  11743 
Macy's 
Book  Dept. 
Herold  Square 
New  York.  NY  10001 
North  Carolina 
The  Book  Collection  Inc. 
1 1 7  North  Greene  St. 
Greensboro.  NC  27410 


News  &  f^tovels 

West  Market  St.  Center 

Greensboro,  NC  27407 

Wills  Books 

Friendly  Shopping  Center 

Greensboro.  NC  27401 

Wills  Books 

Four  Seosons  Mall 

Greensboro,  NC  27403 

Otilo 

Wit  &  wisdom.  Inc. 
dba  Booksellers 
24031  Chogrin  Blvd. 
Beachwood.  OH  44122 

Barnes  Si  Noble  Bookstore.  Inc, 

dba  Cleveland  Slote  Univ. 

2400  EucikJ  Avenue 

Ctevelond,  OH44115 

The  Inside  Story 

8535  Tanglewood  Mall 

Chagrin  Falls,  OH  44022 

Bookstore  at  the  University  of 

Akron 

Barnes  &  Noble 

303  E-  Corroll  St- 

Akron,  Ohio  44325 

CuyohOQO  Community  College 

Western  Compus  Book  Center 

1 1000  Pleasant  Valley  Rood 

Pormo,  OH  44130 

University  Bookstore 

Bowling  Green  State  University 

Bowling  Green,  OH  43403 

Oregon 

Book  Vault 

Bernard's  Mall 

3125  S.W.  Cedar  Hills  Blvd. 

Beoverton,  OR  97005 

Peniuylvanfa 

Computer  Comer 
Bazaar  of  oil  Nations 
Store  #201  Baltimore  Pork 
Clifton  Hts,,  PA  19018 
Encore  Books  #8101 
1413  Walnut  St. 
PhikJdelpfila.  PA  19102 
Encore  Books  #8103 
205  Soutn  38th  St, 
Penn  Campus 
Philadelphia.  PA  19104 
Encore  Books  #8107 
609  Chestnut  St. 
Philadelphia,  PA  19106 
Encore  Books  #8112 
34  South  1 7th  St. 
United  Engineers  BIdg. 
Philadelphio,  PA  19103 
Encore  Books  #8115 
Chestnut  Hill/Top  of  Hill 
55  Bethlehem  Kke 
PhilQdelphlo,  PA  19118 
•Encore  Books  #8118 
Cottmon  Bustleton  SC 
2119Cottman  Ave. 
Philadelphia,  PA  19149 
Encore  Books  #81 19 
Tremont  Shopping  Center 
2536-38  Welsh  Rood 
Philadelphio,  PA  19152 
Encore  Books  #8105 
205  West  Lancaster 
Wayne,  PA  19067 
Encore  Books  #8106 
457  Germantown  Pike 
Plymouth  Meeting,  PA  19462 
Encore  Books  #S1 08 
23  ManoQ  Shopping  Center 
Eogle  Rd.  West  Chester  Pk. 
Hovertown,  PA  1 9083 
Encore  Books  #81 09 
Ardmore  West  SC 
139  W.  Lancaster  Ave. 
Ardmore.  PA  19003 

Encore  Books  #81 15 
Medio  Shipping  Center 
519  Baltimore  Pike 
Media,  PA  19063 
Encore  Books  #110 
455  OW  York  Rd. 
Jenklntown.  PA  19046 
Encore  Books  #8111 
Lawrence  Park  SC 
Rt.  302  at  Lawrence  Rd. 
BfOomolLPA  19008 
Encore  Books  #81 16 
Hompton  Sq.  Stiop  Ctr. 
Second  Street  Pike 
Southomptofi,  PA  1 8966 
Encore  Books  #8120 
Gotewoy  Shopping  Ctr. 
Rt.  202  S.  Valley  Fotge  Rd. 
\Atayne,  PA  19087 


South  Carolina 

Hoppy  Bookseller 
34  Richland  Moll 
Columbia,  SC  29204 

Taxai 

Taylors  #1 

5455  Beltilne  Rd. 

Dallas,  TX  75240 

Taylors  »2 

4001  Northwest  Pkwy. 

Dallas,  TX  7522S 

Toylors  #3 

254  Lincoln  Square 

Shopping  Center 

Amngton.  TX  7601 1 

Toylo/s  #4 

6346  Camp  Bowie  Blvd. 

Ft.  Vtorth,  TX  761 16 

Fort  Worth  Book  &  Video 

4O0  Moln 

Fort  Worth,  TX  76102 

VIdeoland 

2131  N.  Town  Eost  Blvd. 

Wesquite,  TX  75150 

VIdeoland 

6827  Green  Oaks  Road 

Ft,  Worth.  TX  76116 

Videolond 

4750  FM  1960 

Houston,  TX  77069 

VIdeoland 

7080  SW  Fwy- 

Houston,  TX  77074 

Babbages 

Town  &  Country  MoB 

600  W.  Belt 

Houston,  TX  77024 

Babbages 

7925  West  FM  1960 

1536  Wlliowbroc*  Mall 

Houston,  TX  77070 

Babbages 

Baybraok  Square 

1 369  West  Boy  Area  Blvd. 

Houston,  TX  7759B 

Bobboges 

1 70  Greenspoint  Mai 

Houston,  TX  77060 

Bobboges 

1000  West  Oaks  Moo 

Houston,  TX  77082 

VIdeoland 

13340  Preston  Rd. 

Dollas.  TX  75240 

Babbages 

NorthparV  Mall 

455  NorthPark  Center 

Dallas.  TX  75225 

Babbages 

2228  Volley  View  htoll 

Dallas,  TX  75240 

Federated/Superstore  #3240 

12002  SW.  Freeway 

Meadows.  TX  77477 

Federated/Superstore  #2110 

19801  Gulf  Freeway 

Webster,  TX  77948 

Federated/Superstore  #1 101 

lOO  Cypress  Wood 

Spring,  TX  77388 

Babbages 

1130  Collin  Creek  Mall 

81 1  North  Central  Expressway 

Piano,  TX  75075 

Babbages 

2060  Tovm  East  Ivtall 

Mesqurte,  TX  75150 

Babbages 

2064  Northeast  Mall 

Hurst,  TX  76053 

Babbages 

243  Hulen  Moll 

4800  South  Hulen  Street 

Ft.  Worth.  TX  76132 

Bobboges 

3843  Irving  Mali 

Irving,  TX  75062 

Virginia 

Crest  Books  Towncenter 

1 1 6  Harry  Flixxj  Byrd  Highway 

Sterling,  VA  22170 

Words  Comer  Book  Shop.  Inc. 

7524  Granby  Street 

ftortolk,  VA  23505 

Softvirare  Store  (Vienna) 

8601  Westwood  Ctr.  Dr, 

Vienna.  VA  22180 

Wathlnglon 

The  Programs  Plus 
16850  S.  Center  Pkwy. 
Seottle.WA  98168 


are  used  up  or  time  runs  out  at  the 

last  skill  level. 

The  VIC-20  version  of  Webster 
Dines  Out  is  written  in  machine  lan- 
guage (ML)  for  the  unexpanded 
VIC.  Program  3  is  a  BASIC  loader 
that  saves  the  ML  program  on  disk 
or  tape.  Since  the  loader  won't  fit  in 
an  unexpanded  VIC,  you'll  need  at 
least  8K  memory  expansion  to  run  it 
(a  Commodore  64  can  also  be  used; 
see  instructions  below).  Type  in  and 
save  Program  3,  but  don't  try  to  run 
it  yet.  Enter  this  line  in  direct  mode 
(without  a  line  number): 

POKE6609,0:POKE43,209:POKE44,25: 
NEW 

Now  reload  Program  3  and  run  it. 
Press  D  to  save  the  game  on  disk,  or 
T  to  save  it  on  tape.  The  finished 
program  will  be  named  WEBSTER 
(replacing  any  other  program  of  that 
name  on  your  disk).  If  you  don't 
have  memory  expansion,  you  can 
use  a  Commodore  64  to  create  the 
VIC  game  (of  course,  the  game  itself 
runs  only  on  a  VIC).  To  run  the 
loader  on  a  64,  change  the  57809  to 
57812,  and  63109  to  62957  in  lines 
9-11  of  Program  3.  Then  follow  the 
procedure  described  above. 

Once  the  game  is  saved,  re- 
move any  memory  expansion  and 
load  and  run  it  like  a  BASIC  pro- 
gram. Move  Webster  with  the  <  and 
>  keys,  and  drop  him  down  by 
pressing  the  space  bar.  As  you  pro- 
gress to  higher  skill  levels,  the  speed 
increases,  and  rocks  appear  below, 
blocking  your  vision.  You  can  snare 
bugs  from  behind  the  rocks,  but  be 
careful  not  to  drop  onto  a  hidden 
scorpion.  Play  continues  until  you 
lose  all  three  lives. 

IBM  Version 

Program  4  runs  on  any  PCjr  with 
cartridge  BASIC  and  any  IBM  PC 
with  BASICA  and  a  color/graphics 
adapter  card.  Press  the  left  and  right 
cursor  keys  to  move  Webster,  and 
the  space  bar  to  drop. 

Webster's  lifeline  is  displayed 
at  the  top  of  the  screen.  When  you 
drop  to  get  a  bug,  your  energy  level 
is  drained  and  your  lifeline  shrinks. 
Capturing  a  bug  restores  your  ener- 
gy and  expands  your  lifeline.  You'll 
score  10  points  for  catching  a  beetle, 
and  20  for  each  bug,  with  bonus 
points  for  multiple  captures.  Extra 
bonus  points  are  awarded  at  the 
1,000,  5,000  and  10,000  point 
marks.  As  your  score  increases,  the 
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bugs  speed  up  and  become  more 
scarce;  your  energy  will  drain  faster, 
too.  The  game  ends  when  you  hit 
the  scorpion  or  your  energy  drains 
to  zero. 

Apple  Version 

This  version  of  Webster  Dines  Out 
will  run  on  any  Apple  II  series  com- 
puter. Since  it's  written  entirely  in 
machine  language  (ML),  it  must  be 
entered  using  the  "Apple  MLX"  ma- 
chine language  editor  found  else- 
where in  this  issue.  MLX  will  greatly 
simplify  the  usually  tedious  job  of 
accurately  entering  the  many  num- 
bers that  make  up  a  ML  program. 
But  be  sure  that  you  read  the  MLX 
article  and  understand  how  to  use 
MLX  before  you  begin  entering  the 
data  from  Program  5. 

When  you  run  MLX,  it  will  ask 
for  a  starting  and  ending  address. 
Use  the  values  indicated  in  Program 
5: 


START  ADDRESS? 
END  ADDRESS? 


1100 
1F14 


MLX  will  then  give  you  a  menu  of 
options.  Choose  E  for  enter  and  give 
1100  as  the  starting  address.  A 
prompt  for  the  first  line  will  appear, 
and  you  can  begin  entering  the  data 
from  Program  5.  If  you  don't  type 
the  entire  listing  in  one  sitting,  fol- 
low the  instructions  in  the  MLX  arti- 
cle for  saving  a  partially  complete 
version  and  reloading  it  later.  When 
you're  finished  typing,  MLX  will 
prompt  you  for  a  filename  for  the 
completed  machine  language  pro- 
gram. To  load  and  run  the  game, 
simply  type  BRUN"WEBSTER"  (or 
whatever  name  you  used  for  the 
completed  program)  and  press 
RETURN. 

The  scoring  is  identical  to  the 
Atari  version.  Use  the  left  and  right 
arrow  keys  to  move  on  the  branch, 
and  press  the  space  bar  to  drop  to 
the  ground.  Avoid  colliding  with  the 
giant  grasshopper — when  that  hap- 
pens, Webster  loses  a  life  (and  is 
carried  bodily  off  the  screen).  The 
grass  in  the  lawn  grows  higher  as 
the  game  progresses,  making  your 
job  more  difficult.  You  can  drop  into 
the  grass  to  snare  a  hidden  bug,  but 
be  sure  to  keep  track  of  the  giant 
hopper,  who  might  be  lurking  there 
as  well. 

Tl  Version 

This  version  of  Webster  (Program  6) 
uses  sprites  for  the  spider,  bugs,  and 


scorpion,  and  thus  requires  TI  Ex- 
tended BASIC,  You  can  use  either 
joystick  or  keyboard  controls.  For 
the  keyboard,  press  the  S  key  to 
move  left,  the  D  key  to  move  right, 
and  the  space  bar  to  make  Webster 
drop.  Scoring  is  identical  to  the  Atari 
version;  You  have  three  lives  in  each 
game,  and  six  possible  levels.  Bugs 
are  worth  25  points,  with  a  50  point 
bonus  for  catching  two  at  once. 

At  the  bottom  of  the  screen 
you'll  see  Webster's  lifeline.  Drop- 
ping for  a  bug  drains  your  energy 
and  shrinks  the  lifeline;  catching  a 
bug  restores  your  energy  to  normal. 
You  lose  a  life  whenever  your  ener- 
gy drains  to  zero  or  you  hit  the 
scorpion.  The  game  will  not  end 
until  you  lose  all  three  lives. 


Growing  grass  aiid  grey  rocks  make  it 
tough  for  Webster  to  find  a  meal  in  Atari 
"Webster  Dines  Out." 


Program  1 :  Webster  Dines 
Out  For  Atari 

Please  refer  to  "COMPUTEI's  Guide  to  Typing  in 
Programs"  Ijefore  entering  this  listing. 


KI  10 

GOSUB  7000 

U  20 

GOSUB  7  100 

Lfl30 

GOSUB  7600 

DO  50 

LEVEL=LEVEL+1 

CL  30 

DN  LEVEL  SDSUB  85, 1000 

0, 10100, 10  200, 10  300, 10 

400, 19000 

PLS5 

POKE  656,2:P0KE  i57,B: 

?  LEVEL 

LH  90 

POKE  53248, XROS: PD0« (V 

PDS, YPOS+LEN (SPIDER*) ) 

=SPIDER* 

PO  98 

CaUNTER=0 

DP  99 

REM  »«t  MftlN  LOOP  STAR 

T  «»» 

U   10£ 

S=STICK (0) 

K  iie 

XP0S=XP0S+4t(S=7)-4«( 

8=1  1  ) 

OC  14A 

IF  XPQS>XMAX  THEN  XPO 

S=XMAX 

NO  146 

IF  XPOS<XMIN  THEN  XPO 

S-XMIN 

A  ATARI 


Atari  Inc.  has  cut  all  hardware  and 
software  prices.  Please  call  for  latest 

priC6S!    ATAPfi  .sa[far;e-narno'ATAfll  INC 

SUPERPRIfJTER  PACKAGES 

Panasonic  1091  and  U-Print  A  364 

Panasonic  1090  and  U-Print  A  279 

Legend  880  and  U-Prrnt  A , .  309 

Prowriter  and  U-Print  A 385 

SG-10  Printer  and  U-Print  A  313 

Citoh  7500AP  and  U-Print  A 292 

SD-IOand  U-Print  A  449 

No  additional  shipping  or  charge  card  surcharges  in  Cora  USA 

MOSAIC  INDUS  GT 

48K  RAM 79.95     for  Atari    229 

ATARI  MODEM 
SPECIAL 

Hayes  300  & 

R-Verter  239 


64KRAM/'100  ..  134.95 
e-lK  RAM/800  +  Cable 

Kit#1   144.95 

64K  Expander  lor 

600  XL    99,95 

ATARI  INTERFACES 

Aid  Interlast  I  Call 

U-Print  A 64.95 

R-Verter  Modem 

Adapt 39.95 

MPP1150 Call 


MPP  lOOOE 

Modem  109 

U-PRINT  BUFFERED 

INTERFACE 

tor  Atari    Call 


ATARI  SOFTWARE 


BRODERBUND 

Bank  Slreei  Wnler-O     49  95 

Loderunner-O 23.95 

Spelunker-D 20.95 

Stelth-D  20.95 

Print  Shop-D  34.95 

Serpenl's  Siar-D   ,   , .  2795 
Prinl  Shop  Paper  ....  16.95 

DATASOFT 

Bruce  Lee-O'T  23.95 

Corsan  Ihe  Barbarian- 

D.T 27.95 

Mr.  Doo-D/T 27.95 

Allernale  Reality-D  . . .  27.95 

Letler'Speil  Wiiard-D  54.95 

ELECTRONIC  ARTS 

Archon-D  29.95 

Pinball  Consiruclion-D  29.95 

M.U.L.E.-D   29.95 

Murder/Zinderneul-D  29.95 

One  on  Onc-0  29.95 

Archon  ti-D     29.95 

Financial  Cookboot-D  37.95 

Music  Construction-D  29.95 

Realfn/lmpossit)ility-D  29.95 

Hard  Hal  Mack-D    , . .  29.95 

EPYX 

Ballbiazer-O  27.95 

fleturn  to  FractuluS-D    27.95 

INFOCOM 

Deadline-O  29.95 

Enchanter-D 23.95 

Planetfali-D    24.95 

Sorcerer-D 29.95 

Witness-D  29.95 

Cutthroats-O   24.95 

Suspect-D  24,95 

Hilchiker-D 24,95 

Zorkl-O        24.95 

Zorkll  or  lll-O 27.95 

MICROPROSE 

F-1 5  Strike  Eagle-D  23,95 

Crusade  in  Europe-D  .27.95 

Decision  in  Desert-0  27.95 

Kennedy  Approach-D  23,95 

MISCELLANEOUS 
ATARI 

SlarLeag,  Basebail-D/T  23.95 

Star  Bowl  Foolball-Dff  23.95 

Master  Type-D/Cai1    .  27.95 

Flight  Simulalor  ll-D  .  37.95 

S,A,M.-D 41,95 

Megalont-D  19  95 

Monkey  Wrench  ll-Cart  29,95 

Ultima  lll-D  41.95 

Miner  2049er-Cart  , , . .  9.95 

Beachhead-M       ,    ,  23,95 

Spy  vs.  Spy-0  .     ...  23.95 

MPP  Modern  Driver-D  19.95 

Net  Worth-D    54.95 


MISC.  A1ARI  (cont'd.) 

Omnilrend  Universe-0  69.95 
Adventure  Writer*  ,  27,95 
MMGComptler-D  ..  .69.95 
Summer  Games-D  ...  27,95 

Pitstopll-D   27,95 

Ullima  l-D   23.95 

Ultima  ll-D 41,95 

Letter  PerfecuSpell-D    49.95 

Ultima  IV-D   41.95 

Raid  Over  Moscow-D  27.95 
MicJD-Leag.  BasePalt-D   29,95 

Paper  Clip-0    59.95 

Home  PalcD    37.95 

Bounty  Bob  Strikes 

Back-Cart 34,95 

B-Graph-D  49.95 

Halley  Project-D 29.95 

Astral  Rift-D 27.95 

Back  to  Basic 

Accounting-D Call 

Data  Psrfecl-D  49,95 

QBerl-Cart 24.95 

Popeye-Cart 24.95 

Siar  Wars-Cart 24,95 

OPTIMIZED 
SYSTEMS 

Action-Cart 

Basic  XL-Cart      

MA&65-Carl    

MAC/65  Tool  Kit-D  , . 
Action  Tool  Kil-D  ... 
Writer  s  Tool-Cart   . . . 

SSI 

Carrier  Force-0    

Combat  Leai)er-D/T  , 
Cosmic  Balance  ll-D  , 
Cosmic  Balance-D  , , . 

Broadsides-D  

War  in  Russia-D  . .  . 
50  Mission  Cfush-0 

Gueslron-D    

Rails  West-D  

Computer  Ambush-D 
Computer  Baseball-D 
Breakthrough 

Ardennes-D   

Field  of  Fire-D  

Imperial  Galactian-0  , 
Comp.  Quarterback-D 
Oper.  Marlffit  Garden-D 
Kamptgrupee-D 

SYNAPSE 

Synttie-D  

Syncaic-D   

Syntrend-D    

Synchron-D     

Syncomm-D 

Synstock-D   

Helaj-0  

Slue  Max  2001 -D  ,   ,. 


69,95 
54  95 
69  95 
27  95 
27  95 
69  95 

41,95 
27  95 
27,95 
27.95 
27.95 
55.95 
27.95 
34.95 
27.95 
41.95 
27.95 

41  95 
27.95 
27.95 
27.95 
34,95 
4t,95 

34,95 
34.95 
34,95 
27  95 
27  95 
27,95 
79,95 
2395 


^ 


GENERAL 
HARDWARE 


.IL 


SG-10    

SG-IS Please  [tali 

SD-10   For 

SD-15  Currsnt 

SR-10  Prices 

SR-15    ■•■, 

Powertype 

P.O.  the  Part)  Quiz   .    19  95 
For  Apple,  C-64  &  Atari 

PRINTER  BUFFERS 

Microfazer Call 

MPP  MiCfo  Stutter  124.95 

U-Pfint-16K 84,94 

U-Pfint-32K Call 

U-Pfint-64K  Buffer  ,  Call 


MODEMS 

Volksmodem  300   59 

Volksmodera  1200   , . , ,  189 

Hayes  120O Call 

Hayes  300 195 

Micromodem  HE  ,.,,,,  Call 
Novation   Call 

PRINTERS 

Citoh  8SIOAP  309 

Legend  1080 259 

Citoh  7500AP  ,,219 

Epson  Call 

Toshiba  1351  Call 

Toshiba  1340 649 

Legend  S30 229 

Legend  1080 259 

Panasonic  1090   209 

Panasonic  1091    2B5 

Panasonic  1092    419 


APPLE 


BRODERBUND 

PflntShop-D  33,95 

Karateka-D 21 ,95 

Champ  Loderunner-D  2195 

BankSlreetWriler-0  44,95 

Print  Shop  Gfaphics-O  17  95 

Daule  Draw 39,95 

ELECTRONIC  ARTS 


Skytox   

One  on  One  

Seven  Cities,'Gold  ,   , 

Archon  II   

Adv  Conlruction  Kit 


29.95 
29,95. 
29  95 
29  95 
37.95 


INFOCOM 

Hitchiker   

. .  25.95 

Zork  1,  II  or  III  ..,, 

. .  25,95 

Enchanter 

, ,  25-95 

Deadline 

. .  33.95 

SSI 

Gemstone  Warrior  . 

,,  21,95 

Kamptgruppe 

. .  39,95 

Phanlasie 

. ,  25.95 

Questron   

. .  33,95 

APPLE  ENTERTAINMENT 


Ghostbusters         .  25,95 

Flight  Simulator  II  34  95 

F-15  Strike  Eagle  21,95 

Summer  Games 25,95 

Micro  League  Baseball  29,95 

Star  League  Baseball  23  95 

Wiiardry/Pfoving  ,  33  95 


Ultima  III  39  95 

Bfuce  Lee       25  95 

Millionaire   33.95 

Dealh/Carribean  21,95 

Felony  21  95 

Conan 25,95 

Sargon  III 33  95 


APPLE  BUSINESS 


Dollars  S  Sense 64  95 

PFSFite   79,95 

PFS  Write 79,95 

PFS  Report   79,95 

Multlplan   , , ,  - 64  95 


Supercalclll    124,95 

Sideways  39,95 

Crosstalk  129,95 

Jane  VffMouse  ,  129,95 

BPI  Software  Call 


APPLE  EDUCATION 

Mastertype 25,95      Homeword  44,95 

Build-A-Book  25,95 

Typing  Tutor  III    33.95 

Success  w/Hath   , ,, ,  19,95 

Newsroom  33,95 

Charlie  Brown  ABC  25,95 


Math  Blaster   33.95 

tWofd  Attack 33.95 

Winnie  the  Pooh   ...  25  95 

Animation  Station  59  95 

Koala  PaC  73  95 


EST.  1S8Z 


PC  Box  17882.  Milwaukee.  Wl  53217 

ORDER  UNES  OPEN 

Mon-Fri  11  a.in.  -  7  p.m.  EST  •  Sat,  \2  p.m.  -  5  p.m,  CST 

To  Order  Call  Toll  Free 


800-558-0003 

For  Technical  Info,  Order 
Inquiries,  or  for  Wise.  Orders 

414-351-2007 

ORDERING  INFORMATION:  Pease  specify  system 
For  last  delivery  send  cashier's  check,  money  orderor  direct  bank 
IranstSfs.  Personal  and  company  (hecks  allow  2  weeks  to  clear 
Charges  for  COD  are  S3  00,  School  Purchase  Orders  welcome.  In 
CONTINENTAL  USA,  include  S3  00  shipping  per  software  order. 
Include  3%  shipping  on  all  Hardware  orders,  minimum  S3.00, 
Mastercard  4  Visa  please  include  card  #  and  expiraBon  date,  Wl 
residents  please  add  5%  sales  tax.  HI,  AK,  FPO,  APO,  Canadian 
orders  —  add  5%  shipping,  rainmum  S5,00,  All  other  foreign 
orders,  please  add  15%  shipping,  minimum  S10.00  All  goods 
afe  new  and  Include  factory  warranty.  Due  to  our  low  prices,  all 
sales  are  final.  All  detective  returns  must  have  a  return  authonza- 
lion  number.  Please  call  414-351-2007  to  obtain  an  RA*  or  your 
return  wiil  NOT  be  accepted  lor  replacement  or  repair.  Prices  and 
availability  are  subject  to  change  without  notice. 


COMMODORE  64:: 


SUPER  PRINTER  PACKAGES 

Panasonic  1091  and  Cardco  G  +    364 

Panasonic  1090  and  Cardco  G-f    295 

Legend  880  and  Cardco  G  -i-  309 

Prowriter  and  Cardco  G-f 389 

SG-10  and  Cardco  G-f   319 

MODEMS                   C-64  MODEM 
Westridpe  AA:'AD    59,95     SPECIAL 
Total  Tele  Modem    49.95     WestriiJgB  IVIodem  +  VIP 
MiQfity  Mo 59.95        Terminal  at   99 

Total  |y|oiJeni  +  VIP 
Terminal   84 

IVIighty  fi^o  +  VIP 
Terminal    93 

Animation  Station 

for  c-64 59.95 


1660  Modem 

INDUS 

Indus  GT  lof  C-64 


49.95 


239 

PRINTER 
INTERFACES 

Axiom  Call 

U-Prinl-C 64.95 

Cardco  G  +  ...  69.95 
Turboprint  GT  , . ,  69,95 
(wlW-3  Call 


CALL  FOR  LATEST 
PRICES  ON  C-e4  i 
C-12B  HARDWARE. 


COMMODORE  SOFTWARE 


ACCESS 

Beachhead-DT 

23.95 

aaid'Moscow-0/T  . . 

27.95 

Scrolls  ol  Abadon-D/T 

23,95 

iVIach  ll-Carl    

23.95 

eeachead  ll-D   

27.95 

BATTERIES  INCUJDED 

Consuliant-D  

64,95 

Paperclip  W'Spellpak-D 

79,95 

Super  Busscard  II  , . 

.  Call 

Honne  Organizer  Hems-O 

16.95 

B.I  60  Card   ,,,,,, 

. .  Call 

Cal-Kil   

34,95 

Home  Pak-0    

37,95 

Cardco 

Cardprini/B    

47,95 

Cassette  Recorder  , , 

37,95 

Write  Now-Cart  . , . . 

34  95 

File  Now-0 

29  95 

Graph  Now-D 

29,95 

Spell  Now-0 

29.95 

COMMODORE 

Easy  Caic-D  

34,96 

Easy  Wail-D  

19,95 

Easy  Scripl-D 

44  95 

Easy  Spell  -0   

,19.95 

49,95 

The  Manager-D  , ,   , 

34.95 

General  Lsdger-D    . . 

34.95 

Accts,  Rec-O   

34.95 

Accts.  Pay-D 

34.95 

tragic  Desk-D   

39.95 

Suspend-0  

29.95 

Starcross-D  

29,95 

Deadlins-D  

29,95 

I^agic  Voice 

54  95 

Soccer-Cart 

22  95 

Cutlhroats-D    

29.95 

The  Suspecl-D 

29-95 

Inveniory  Man-D  , . , 

34.95 

Simon's  Basic-Cart    , 

29.95 

DATASOFT 

ConarBarbarian-D/T 

27,95 

Bruce  Lee-DT  

27  95 

Lost  Tomb-OiT 

23,95 

Allernale  Heahty-D/T 

27  95 

ELECTRONIC  ARTS 

f^all  Order  fiAonster-D 

29,95 

AAentute  ConstrucSon-C 

37.95 

Racing  Destryction-D 

29,95 

Standing  Stones-D  . 

29,95 

Skyfox-D   

29,95 

See  Atari  Section  tor  resi  of 

items  and  prices. 

EPYX 

Ballblazer-D   

27,95 

Rescuei'Fractulus-D 

27.95 

F.B,I,-D     

,27,95 

Fast  Load  Car!      ... 

27  95 

INFOCOM 

Call  for  items  and  prices 

T-Cassette 

D-Dlst 

.   Cart-Cartridge 

MISC.  COMMODORE 

Ultima  lll-D   41,95 

Right  Simulator  ll-O  ,  37,95 
Star  Leag,  Basebali-DT  23,95 
Mastertype-D'Cart  , , .  27,95 

Strip  Poker-0 23.95 

Sam-D  41,95 

Spelunker-D 20.95 

Stealth-D   20.95 

Bungling  Bay-D   20.95 

Dr.  Creep-D  20.95 

On-Field  Tennis-OT  .  23.95 
f-15  Strike  Eagle-D/T     23.95 

Movie  Maker-0   37.95 

VIP  Terminal-0    29,95 

Ooodle-D  27.95 

Ghost  Buslers-D     ...  24.95 

Koala  Printer-D    19.95 

Karateka-D 20.95 

Print  Shop-0  34.95 

Amazon-0     22,95 

Rendezvous'Rama-D     22.95 

Farenhell  451-0  22.95 

DragonworiO-O    22.95 

Shadow  Keep-D 22.95 

Spy  vs.  Spy-D 23.95 

Stress  Relax  Sys  -D  .  79.95 
Blue  Max-DT  ,    ,     , ,  23,95 

UlhmalV-D   41,95 

Ulhmall-D  41.95 

Micro-League 

Basehali-0 29.95 

Home  Pak-D    37.95 

Math  Blaster-D 34.95 

WordAKack-D  ,-  34.95 
Speed  Reader  II      ...  49.95 

Stunt  Flyer-D  Call 

Sargon  lll-D    34.95 

Super  2axxon-D  ...  23,95 
Decision  Desert-O  ,.  27  95 
Kennedy  Approach-D  23.95 
Crusade;Europe-D  . . ,  27.95 

Halley  Projeci-D 29.95 

Transylvannia-D 23.95 

Bounty  Bob-Cart  ...  34,95 
BlueUax  2D01-D  , ,.  23,95 
Fleet  System  ll-D  ,,,  49.95 
Evelyn  Wood -0    34,95 

SSI 

Carrier  Force-0    41 ,95 

Ouestron-D   27,95 

Broadsides-D  27,95 

Comp.  Ouarterback-D  27,95 

Computer  Ambush-D  41 .95 

Kamplgfuppe-D  41.85 

Oper  fi^arket  Garden-0  34.95 

Gemstone  Warrior-D  23.95 

ImperiumGalactium-D  27.95 

Phantasie-0  27.95 

Cartels  Cullhroals-D  .  27.95 

SPINNAKER 

Call  for  items  and  prices 

SYNAPSE 

Call  for  items  and  prices 

TIMEWORKS 

Call  tor  items  and  prices. 


« 
m 


No  surcharge  for  MasterCard 


COMPUTEi's  Apple  Applications 

COMPUTEI's  Apple  Applications  issue  features  applications,  tutorials,  and  in-depth  feature  articles  for 
owners  and  users  of  Apple  personal  computers.  From  software  to  hardware  to  the  state  of  the  industry, 
this  special  issue  serves  as  a  useful  tool  and  handy  reference.  It's  filled  with  home,  business,  and  educa- 
tional applications  and  purchasing  information. 

Like  COMPUTE!  and  COMPUTEI's  Gazette,  COMPUTEI's  Apple  Applications  \%%ue  contains  ready-to-type-in 
programs,  easy-to-understond  tutorials,  and  useful  information.  This  special  issue  includes  something  for 
everyone: 


A  lulofalFc-aluiu  i 


':  rv'FOcArllsl, 
,  . .:  ■■}  ,i  .rjjs  Ot  f'/r'JcPatnt.  PAjcDr  jv^'.  Ana  f/^^cVVnl»i 


ECIAL: 


UCATIONS  ISSUE 


Business 

Appllcallons 
Softwore 
Buyer's  Guide 


TMConvnrtcalttria 
For  Aixto  end  Moc^ltari 


A  first  LOOK 

A1  Jazz 
For  Ihe  Moctilosh 


Appte  n  E<*jcatk3n 


A  Gonw-Lover's 

Cholcs: 

Tf«  Tan  BMt-Evw 

Apj*  Gomes 

# 

R«Ody^T<>U» 

Ftm  With  n*  teu$: 
HHt  SmVot  A  hatt- 

r»c«d  arcade  styie 

gam 
Cwt:  FN«tov«hot 

cholanglrg  plov 

awott  vou 
Spi^iq  Bii:  A  word- 

guaahgQome  roi 

younoitan 
SomaardW:  A  mocNn« 

routho 
Arid  Q  QTAdi  dul  rtyye 


ON  SALE:     April  9,  1985 

PRICE:  $3.95     (in  Canada.  $4.75) 


FEATURES 

Bus'  "    ■  A  Buyer's  Guide 

Word  processing,  spreadsheets,  databases,  and  more 

Telecommunicating  on  the  Apple  li  and  ttte  Macintosh 

"Is  Anyone  Out  There?  Getting  Started  with  Telecommunica- 
tions," a  handy  reader  introduction  to  the  first  few  hours  of 
telecommunications,  plus  "Exploring  Databases"  by  computer 

A  '/ 
"The  Ten  Best-Ever  Apple  Gomes" 

API 

"Up  and  Coming  Apple,"  watchers  and  prognosticotors  reveal 
their  best  crystal-boll  impressions  of  the  market,  the  manufac- 
turer, and  the  future  development  of  our  industry 

Apple  In  Education 

"The  State  of  Educational  Computing,"  plus  "A  Software 
Overview:  What's  Available  in  Education?"  and  "What  Mokes 
Superior  Educational  Software?" 

APPLICATIONS 

Datatxise  Management  Program 

A  small,  working  program  for  the  Apple  II  series 

Chess 

A  significant  user-ready  program  with  five  levels  of  challenging 
play 

archer 

A  machine  language  search  routine 

A  mojor  applications  feature  on  the  inner  workings  of  MacPaint, 
MacDraw.  and  MacWrite  with  tutorials 


Guess  the  constellation 

g  Bee 

Word-guessing  gome  for  youngsters 

Heat  Seeker 

A  fast-paced  arcade  style  gome 

The  programs  published  in  COMPUTEI's  Apple  Applications  are  available  on  disk,  ready  to  run  on  your 
Apple  lie,  Apple  11+ ,  and  lie.  The  Disk  will  save  you  hours  of  typing  time  and  give  you  easy  access  to  the 
programs  in  this  special  issue  of  COMPUTEI's  Apple.  The  Disk  is  only  $12.95  and  is  available  only  through 
COMPUTE!  Publications.  So  order  your  Disk  today! 

Look  for  the  Spring/Summer  issue  of  COMPUTEI's  Apple  Applications  on  sale  where  you  buy  COMPUTE! 
and  COMPUTEI's  Gazette,  and  at  Apple  computer  retailers.  Or  order  directly  from  COMPUTE!. 

Send  in  the  attached  card  with  your  payment  or  call  toll-free  1-800-334-0868. 


COMPUTEr  Publicdtionsjncffi 

One  of  tfie  ABC  PubAhlng  Cofflpanl«  __^ 

324  W.  Wteodover  Avenue,  SuTto  50O-  GfBensbwo.  HC  274M.  9t'J-2?S-9809. 

Publishers  of  CCM=UTEI.  COMPUTE/'s  Gazette.  COMPUTEI's  Gaz&tfe  Disk.  COMPUTEI  Books,  and  COm/mrs  Apple  Applications. 


E3  150 

CN  200 

DC  210 

FN  21  1 

CJ  212 

DC  2  14 

FL  220 

HP  240 
LF  244 
m  246 

U  248 
if  250 

PI  260 
[0  280 

m  300 

LC  304 
UK  306 

LB  308 
Bn  310 
SC  320 
3P  322 
FH  399 
FO  400 
D?  4  1  0 
Be  414 

M  4  18 

EL  4  19 
NC  424 

KB  430 
EI  440 
LL  442 

lie  450 
SL  490 
FJ  499 
6B  500 
PB  510 
BI  514 
PL  518 

EO  519 
NE  524 


NC  530 
EH  540 
Lf  542 

m  S50 

SN  590 
FL  599 
BE  600 
BD  610 
BE  614 
PJ  616 


PN  618 

FB  619 
«G  624 

LE  630 
eS  700 
EE  702 

CD  829 
HB  B30 
Ft  B40 
HF  842 

HF  850 
W   8  60 


POKE  53248, XPDS 
S-STRIG (0) 
IF  S<>0  THEN  400 
REM  *«  WEBSTER  LEAPS 
POKE  53278,0 
VEL=XB3VEL; XB3VEL=VEL 
/2 

FDR  I=YPQS  TO  VB-4  ST 
EP  4 

PD0*  <I,I+LS)=SPIDER* 
SOUND  0,1,10,4 
IF  XB3  =  0  THEN  FDR  D=  1 
TO  6:NEXT  D;GQTO  250 
BDSUB  830 
NEXT  I 

HIT=PEEK <53260) : IF  HI 
T<>0  THEN  GOSUB  1000 
FOR  I=YB-4  TO  YPOS  ST 
EP  -4 

PD0« (I, I +LS)= SPIDER* 
SOUND  0,1,10,4 
IF  XB3=0  THEN  FDR  D=l 
TO  6:NEXT  D:GOTD  310 
GOSUB  830 
NEXT  I 

SOUND  0,0,0,0 
XB3VEL=VEL 

REM  »t  BUS  1  MOVEMENT 
IF  XB1O0  THEN  430 
X=INT(51»RND(0)-25) 
IF  ftBS(X><>l  THEN  500 


XB1  = 
X  =  -l 

XBiy 

PDlt 
=  BUG 
SDUN 
XB1  = 
IF  X 
AX  T 
POKE 
SOUN 
REM 
IF  X 
X=IN 
IF  A 
XB2  = 
X  =  -l 
XB2V 
PD24 
=  BUG 


XMI 
) 
EL  = 

(  YB 
« 

D  1 
XBl 
Bl< 
HEN 
53 
D  1 
«* 
B2< 
T  (5 
BS  ( 
XMI 
) 
EL  = 

(  YB 

i 


N» (X=l ) +XMAX» ( 

XtXBlSPEED 

, YB+LEN (BUG?) > 

, 30, 14, 4 

+XB1VEL 

XMIN  DR  XBS  >XM 

XSH=0 
2  4  9, XBl 

0  0  0 
BUG  2  MOyEMENT 
>0  THEN  530 
iltRND (0) -25) 
X)<>1  THEN  600 
N« ( X=l ) +XMAX« ( 

XtXB2SPEED 

, YB+LEN (BUG*) ) 


SOUND 
XB2=X 
IF  XB 
AX  TH 
POKE 
SOUND 
REM  « 
IF  XB 
X=INT 
IF  AB 
COUNT 
COUNT 
GOTO 
XB3  =  X 
X  =  -l  ! 
XB3VE 
PD3*  ( 
=  BUG* 
GOSUB 
GOTO 
REM  * 
OOP  « 
REM  * 
SOUND 
XB3  =  X 
IF  XB 
AX  TH 
POKE 
IF  XB 
:  POKE 


2,11,14,4 
B2+XB2VEL 
2<XMIN  OR  XB2>XM 
EN  XB2=0 
53250, XB2 

2,0,0,0 
«  BUG  3  MOVEMENT 
3< >0  THEN  630 
(FltRND (0) -F2) 
S  ( X )  <  >1  THEN  100 
ER=CDUNTER+1 ; IF 
ER>15  THEN  POP  : 
50 
MIN»  ( X  =  l  >  +XMAX»  ( 

L=X«XB3SPEED 

YB, YB+LEN (BUG*) > 


83 
100 

t  M 
3, 
B3  + 
3<  X 
EN 
532 
3=X 
53 


END  OF  MAIN  L 

OVE  BUG  3 

5,8,4 

XB3VEL 

MIN  OR  XB3>XM 

XB3  =  0 

51 , XB3 

Bl  THEN  XB1=0 

249,0 


HI  862 

H6  390 

IK  899 

m  1000 

GJ  1004 
LP  1010 


CD  1011 

LE  1  100 

SC  1  1  1  0 

IL  1  120 

BC  1125 

tF  1  130 

L!  1200 

FN  12  10 

IS  1230 

BE  1235 

KH  1240 

NA  1300 

»H  13  10 

ftJ  1320 

Ih  1330 

BF  1335 

XI  1340 

NN  1400 


M   14  10 


1420 
1430 
1440 
1450 
1455 


CJ  1460 
BN  1470 

a  1480 
m  1490 

K   1500 

es  15  10 

AN  1520 
KJ  1530 
JE  1600 

EE  16  10 

AD  1620 

VX  1630 

BH  1700 

81  1710 

BD  1720 

BA  1730 

KH  1740 

AN  1800 

JE  1810 

NE  1B20 
KN  1830 


LL  1899 
ND  7000 
(A  70  10 
DL  7020 
BP  7030 

NC  7040 
lA  7050 


KN7060 

LJ  7099 
NB  7100 


IF  XB3-XB2  THEN  XB2=0 
:POKE  53250,0 
SOUND  3,0,0,0 

RETURN 
REM  SPIDER  HIT  A  BUG 

(WHICH'') 
HIT=1NT (HIT/Z) 
ON  HIT  GOSUB  1 100. 12 
00, 1300, 14  00, 1500, 16 
00, 1700 
RETURN 

XB1=0:POKE  53249, XBl 

SC0RE=SC0RE+25 

GOSUB  1800 

RETURN 

REM  k1  ;>  <  >^  ^ :  »-:Tf^^TITJM^. 

XB2=0:POKE  53250, XB2 

SC0RE=SC0RE+25 

GOSUB  1B00 

RETURN 

REM  antiuMjMinaami^^s 

PBTCHBe 
GOSUB  1100 
GOSUB  1200 
SCORE=SCORE+50 
GOSUB  1800 
RETURN 
REM  EOJIQ 

FOR     1=20     TO     200     STEP 

4 
SOUND     0,1,14,8 
SETCOLOR     4,1,8 
FOR     N=l     TO     10;NEXT     N 
NEXT     I 

POKE     656, 1 sPOKE     657, 
LIVESt2+16:?     "     " 
SOUND     0, 0, 0, 0: SETCOL 
OR     4,0,0 
LI  VES  =  LIVES-1 
IF     LIVES<1     THEN    GOTO 

19000 
RETURN 
REM    asjESUEIi] 


Hn 


imoiEMnrE 


XB1=0:POKE  33249, XBl 

GOSUB  1400 

RETURN 

REM   agjnrwTWTi i^wjifirjE 

XB2=0:PDKE  S3250.XB2 

GOSUB  1400 

RETURN 

REM  ^^■^i>J^:m:H^m:l'*mr-.i 

XB1=0!POKE  53247, XBl 
XB2=0:POKE  53250, XB2 
GOSUB  1400 
RETURN 

POKE  656,2:P0KE  657, 

32 

PRINT  SCORE 

SOUND  0, 40, 12, 8:F0R 

1=1  TO  IBsNEXT  IlSOU 

ND  0,0,0,0 

RETURN  

REM  hr^**<mW9^fiilfnTT 

DIM  X* ( 1) 

A=ADR ( X») 

B=INT  (  (A-512)  /I  024  +  1 

) «1024 

DIM  Ft  (B-A  +  51  1 > 

DIM  PD0S ( 128) , PDl* ( 1 

28) ,PD2«(12a) ,PD3*(1 

28) 

POKE  54279, INT (B/256 

) 

RETURN 

REM  sszainn* 


EF  7  1  1  0 

H!  7120 
OF  7130 

FE  7140 
EE  7150 


R6  7  152 
CO  7160 
ED  7170 
AB  7180 

FJ  7190 
HD  7200 
tE  7300 
LB  7310 


DIM  BPIDER«(15) 

FOR  1=1  TO  15 

READ  XsSPIDER* < I ) =CH 

R*  <X  J 


REA_ 
R*  <X  J 
NEXT  I 


NfcXT  I 

DATA  8,8,8,8,137,74, 

60,255,60,74, 129,0,0 

,0,0 

LS=LEN(SPIDER») 

DIM  BUG* (3) 

FDR  1=1  TO  3 

READ  X: BUG*  <  I  ) =CHR«  ( 


OB  7320 
CE  7330 


PE  7340 


IH7350 


OKE  53251,0 

GRAPHICS  2+16 

?  #6:?  #6;?  #6;" 

t6     SPACES  }CIMiaQMI]" 

?     #6: ?    #6i7     #6; " 

<5  SPACeS>DlNES   OUT 


?  #6:?  «6i?  #6:7  #6; 
"t4  SPACES>press  st 
art  " 


st 

PS  7379  REM  **  PLAY  MUSIC 
AIT  START 


AW 


PB  7380 
HD  7384 
JG  7390 

J!  7392 


RESTORE  19100 
POKE  " 


532: 


FOR  1=1  TO  73:READ 
: SOUND  2, X, 10,8 
IF  PEEK (53279) =6  Th 
N  PDF    ""   ^ 


NF  73  9  4 


:  bUUIMU  ^  ,  X  ,  1  I!)  ,  u 

IF  PEEK (53279) =6  THE 

N  POP  :SOUND  2,0,0,0 

! RETURN 

FDR  J=l  TO  7:NEXT  J: 

NEXT  I 

FDR  J=l  TO  40: NEXT  J 


FE  7610 
CL  7620 

EE  7630 
NH  7640 

NH  7650 


EC  7660 
JS  7670 


HN  7680 


GR  7690 
H6  7700 


GRAPHICS  5 

REM  CLEAR  COLLISION 

REGISTER 

POKE  S327a.0 


S327L, . 

PLAYER 


. 78,  0 

REM  SET 

(2X) 
POKE 


SIZES 
(2X) 
POKE  53256, 0:POKE  H3 
257,0:PDKE  5325B,0:P 
OKE  53259, 1 
REM  SET  PLAYER  COLOR 
S 

POKE  704,10!POKE  705 
,255!P0KE  706,148:PO 
KE  707,255 
REM  ENABLE  P/M  GRAPH 

tcs 

POKE  53277,3 

REM  SET  2-LINE  GRAPH 

ICS 

POKE 


PD  78  14 
KK  7816 


Fl  78  17 


VELS 


ac      V  ^  L_  ^ 

XB1=0: XB2=0: XB3 
XBl VEL=0: XB2VEL 
3VEL=0 


=0: XB3=0 
„„. .^^-„. XB2VEL=0: XB 
3VEL=0 
XBISPEED=1 : XB2SPEED= 
1 : XB3SPEED=6 
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PQ  7B1B 
EB  7820 
EC  7900 
LJ  79  12 


SN  7913 
IF  79  14 
M  7920 


JD  792B 
BP  7930 

ND  7932 
SS  7933 
LC7934 

Jfl7940 


LE  7942 
IS  7946 


EE  7949 

IF  7950 

AA  7952 


LD  7954 


fiC  7980 
(10  7990 

FO  7992 


IL  7996 


CJ  7997 


XMIN=42; XMAX=200 
Fl=51  : F2  =  25 
REM  I  .T:T:1?1  inTaTf  r1 :[  iT  1 1 : 1  >! 
SETCDLQR  0,12,6:SETC 
DLOR  1 , 14, 2: SETCOLOR 

2,0,6 
REM  tt  DRAW  LAWN 
COLOR  1 

PLOT  0,3B:DRAWTO  79, 
3a;PL0T  0,39:DRAWTO 
79,39 

COLOR  2!PL0T  44,7iDR 
AWTD  60,2 

COLOR  2;P0KE  765, 2!R 
ESTORE  7940 


FDR 
V:  PL 
FOR 
Yi  DR 
NEXT 
TION 

,e>, " 

DATA 
37,  7 
79,7 

7,  70 
7,  70 
DATA 
PLOT 

pes  I 

«6,  0 

REM 

VES 

COLD 

REST 
TO 
X,Y 

DATA 
,3,5 
,3,2 

0,4, 

2,7, 

,se, 

POKE 
LIVE 
E  =  0 
POKE 
10;  ? 
iZ    S 
POKE 
2:  ? 
{17 
GQSU 


1  =  1  T 

OT  X, 

N=l  T 

AWTO 

N:RE 

X,Y 

S;  "  :  N 

74,  3 

1,37, 

,79,3 

,0,73 

,0,77 

79,7 

0,0; 

TION 

,  0  ,  ■■  S 

««  PL 

R  1 
ORE  7 
24  :  RE 
:  NEXT 


0  4 

Y 

0  3 

X,Y 

AD  X 

X  10 

EXT 

0,  79 

74,3 

0,  74 

,0,7 

,0,7 

,77, 

DRAW 

0,0: 


READ  X, 

READ  X, 

, Y;POSI 

IB, »6,0 

I 

,30,79, 

0,74, 7, 

,30,74, 

9,7,74, 

9,  0 

5, 77,0 

TO  0,2: 

XIO  IB, 


QT  TREE  LEA 


954:F0R  1=1 
AD  X,Y:PLaT 

I 
1,4,2,3,3,4 
2, 2,7, 3,8, 4 
10,2,3,0,4, 

,0,6,0,i, 
9 , 44, 5, 45, 6 


1,3, 
,7,2, 

,i,2, 
1,4,2, 
2,45,1 
4 

623,  4 
S=3: LEVEL=0! SCDR 


656, 

"LIV 

PACES 

656, 

"LEVE 
SPACE 
B  130 


1:P0KE  657, 

ES 

J  *  *  «  ■' 

2: POKE  657, 

L: 

SJSCQRE: " 

0 


NC  7999 
33   10000 


JO  10010 
KS  10019 


KF  10020 
JS  10030 


DD  10040 

BD  10050 

OS  10099 

OH  10100 

m  10104 

PF  10117 

EL  10119 

KH  10120 


KB  10  130 
OE  10  199 


RETURN 
REM    HUB^E 

iw:Ym 

XB1SPEED=3 
REM  *»  DRAW 
OCK 

COLOR  3 
PLOT  11,37: 
5,37:PL0T  1 
WTO  25,36:P 
5:DRAWTD  20 
22, 35: DRAW 
PLOT  14,34 
B,  34 

Fl  =  31  : F2=15 
RETURN 

REM    ttrwarra 

REM  t*  DRAW 
N=20: HEIBHT 

12000 
REM  tt  DRAW 

ROCK 
COLOR  3:PL0 
DRAWTO  65,3 
2, 36: DRAWTO 
XB2SPEED=2 
RETURN 


;t>jii>-*j: 


A  BIG  R 


DRAWTO  2 
2, 36: DRA 
LOT  13,3 
, 35: PLOT 
TO  24,35 
DRAWTO  1 


GRASS 
=  1  : GOSUB 

A  SMALL 

T  60,37: 
7:PL0T  6 
64,  36 


DJ  10200 

PD  10205 

PA  10210 

OF  10299 
QL  10300 

FK  10310 
PC  10320 

OG  10399 
ON  10400 

m  104 10 

KM  10420 

CL  10430 
QH  10499 
m   12000 

KE  12010 
IE  12020 

LO  12030 
AD  12040 

lA  120S0 
NJ  12060 
AL  19000 

OF  19005 
13   19010 


EH  19020 
FP  19030 


BN  19040 
FI  19050 


SS   19060 


REM  « trwaira-^rM-iiTyii;.-: 

N=10: HEIGHTS 2! GOSUB 

12000 
N=10sHEIGHT=3: GOSUB 

12000 
RETURN 
REM     1 1 H^EHHRJiia^lf a 

Fl=21sF2=10 

N=10s  HEIGHT  =  3: GOSUB 

12000 
RETURN 

REM  ttl«=liJi<^;»:I.JH>.-1 


XB1SPEED=4: XB2SPEED 

=4: XB3SPEED=a 

N=10:HEIGHT=3:GaTO 

12000 

Fl=17: F2=B 

RETURN 

REM  tt  TO  DRAW  SOME 

TALL  BRASS 
COLOR  1 
FOR  1=1  TO  N 


X  =  INT 

PLOT 

37-HE 

NEXT 

RETUR 

REM  t 

POKE 
3249, 
2  POKE 
GRAPH 
"  tS  S 
r  "s? 
C4  SP 
!  SCOR 
?  #6 

«6i 
,  ■'<6 


(80tR 

X,37 

IGHT 

I 

N 

It 
5324B 
0:  POK 

5325 
ICS  2 
PACES 

#6:  ? 
ACESJ 
E:  ?  * 
?  #6; 

?  »6 
SPACE 


ND (0) } 
DRAWTO  X, 


T3  t.  t 

0SPOKE  5 
E  53250,0 
1,0 

+  16: ?  #6  J 
} game  ove 

#6;  " 
SCORE  :   " 
6 

?  #6:?  #6 

s>iiiujjjji: 


J      tt>     £i  r  H 1- 1  a  J  liliUi  ij ; 

RESTORE  19  100 
FDR  1=1  TO  73JREA 
X 

SOUND  2, X , 10,8; FOR 
I  5:NEXT  J:NEX 


EAD 


Program  2:  Webster  Dines 
Out  For  Commodore  64 

Translation  by  Jeff  Hamdani 

Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 


100 

110 
120 

130 

140 

160 

170 

180 

190 
200 
210 
220 
230 
240 

250 

260 

270 

280 
290 
300 
310 


340 
350 
360 


510 
520 
530 


GOSUB1130 :GOSUB1150 :G0SUB1 
190:GOSUB1580:GOSUB1370 

: rem  233 
LV=LV+1 :CR=0:IFLV=7THEN149 
0  :rem  13  5 

ONLVGOSUB130,1400, 1450, 146 
0,1470,1480:IFCR>10THEN110 

; rem  115 
POKE214 , 6 : PRINT ! P0KE2 1 1,35 
rPRINTLV  : rem  125 

P0KE2 14 , 20 ; PRINT  s  P0KE211 , 3 
3:PRINTSC  : rem  156 

P=PEEK{56320):D=15-(PAND15 
)  : rem  194 

XP=XE?+8*  {  0=4 )  -8*  ( D=8 } 

: rem  81 
YP=INT( (-.208)*XP+227.2) 

:rem  249 
IFXP>226THENXP=226  : rem  87 
IFXP<25THENXP=25  : rem  231 
POKEV,XP:POKEV+l,F;rem  121 
FR=PAND16  :rem  243 

IFFRO0THEK400  :  rem  41 
VE=V3 :V3=VE/2:P0KET1 ,17 

: rem  117 
XX=INT{XP/8)-l :FORI=FTOYPS 
TEP8 : POKEV , XP : POKEV+ 1 , I 

: rem  253 
O=1064+XX+Z:POKEH1,I :POKEL 
1, (1/3)  :rem  180 

FOKEO , 66 : POKEO+CL , 6 

: rem  131 
IFB3=0THEN300  : rem  205 
GOSUB750  :rem  133 

Z=Z+40:NEXTI  : rem  213 
A=PEEK(V+30)AND15:IF(AANDI 
)=1THENGOSUB860:IFLS=0THEN 
POKET1,16:GOTO1030  : rem  65 
FORI=YPTOFSTEP-8:P0KE0, 32 

:rera  126 
P0KEV,XP:P0KEV+1,I:P0KEH1 , 
( 1/3)  :P0KEL1,I  : rem  228 
IFB3=0THEN360  : rem  208 
GOSUB  750  :rem  180 

O=O-40 : NEXTI : Z=0 : POKETl , 16 
: rem  7  3 
REM  MUSI  :rem  188 

V3=VE  :rem  252 

REM  BUGl  MOVEMENT  : rem  250 
IFBl<>0THEN4e0  :rem  9 
POKEV+21,PEEK(V+21)OR2 

:  rem  1 
X=INT{F1*RND(0)-F2) :rem  18 
IFABS(X)<>1THEN520  s rem  22 
B1=(-1)*(MI*(X=1)+MA*(X=-1 
))  :rem  112 

V1=X*S1  ;rem  99 

B1=B1+V1 : POKETl, 17: rem  241 
IFBl <MIORBl>  MATHENB1=0 : POK 
ET1,16  :rem  223 

Yl=INT((-.208)*Bl+2  33.2) 

:rem  165 
POKEV+2 , Bl : POKEV+3 , Yl : POKE 
V+40,2  ;rem  157 

POKEH1,INT(RND(0)*3+19) :P0 
KELl,INT{RND(0)*l+9) : POKET 
1,16  :rGm  239 

REM  BUG2  MOVEMENT  : rem  245 
IFB2<>0THENSa0  ; rem  16 
POKEV+21 , PEEK ( V+2  i ) 0R4 

:rem  6 
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540 
550 
560 

570 

580 
590 

600 

610 

620 


630 
640 
650 
660 
670 

680 

690 

700 

710 
720 
730 

740 
750 
760 
770 

780 

790 

800 
810 


820 
830 

840 

850 
860 

870 

880 

885 

890 

900 
910 


960 


970 
980 


X=INT(F1*RND(0)-F2):rcm  21    990 
IP  ABS(X)<>lTHEN640:rem  28 
B2=(-1)*(MI*(X=1)+MA*(X=-1    1000 
))  :rem  116 

V2=X*S2  jrem  104 

B2=B2+V2:POKET2,17 :rem  248    1010 
IFB2<MIORB2>MATHENB2=0:POK 
ET2,16  :rem  230 

Y2=INT( (-.208)*B2+233.2)      1020 

: rem  151 
POKEV+4,B2:POKEV+5,Y2:POKE    1030 
V+41,3  :rera  159 

POKEH2,INT(RND(0)*3+25) :P0    1040 
KEL2,INT(RND(0)*l+9) :POKET 
2,16  srem  242 

REM  BUG 3  MOVEMENT  : rem  249 
IFB3O0THEN710      :  rem  15    1050 
X=INT(F1*RND{0)-F2) :rera  23 
IFABS(X)<>1THEN  160:rem  27    1060 
CR=CR+1  : 1  FCR>  10;ilIDLV=  ITHEN 
850  :reni  12 

IFCR>10ANDLV>1THEMGOSUB850    igyg 
:GOTO110  :rem  150 

B3=(-1)*(MI*(X=1)+MA*{X=-1 
))  : rem  121    1080 

V3=X*S3  :rein  101 

GOSUB75a  :rem  180 

GOTO160  :rem  105    1090 

REM  END  OF  MAItJ  LOOP 

irem  73 
REM  MOVE  BUG3      : rem  199    1100 
POKET3,129  :rem  26    mg 

B3=B3+V3  :rem  120    1120 

IFB3<MIORB3>MATHENB3=0         1130 

:reni  103 
Y3=INT( (-.208)*B3+2  3  3.2) 

t rem  172 
POKEV+6,B3:POKEV+7,Y3:POKE    n^g 
V+42,6  :rem  178 

P0KEH3 , 17 : POKEL3 , 5 : P0KET3 , 
128  srem  214    1150 

1FB3=B1 ANDPR<>0THENB1=0 : PC 
KEV+40 , 0 : POKEV+2 , Bl : POKETl 
,16  trem  87 

IFB3=B1ANDFR=0THEMB1=0:POK    1160 
EV+40, 0: POKEV+2, Bl : rem  154 
IFB3=B2THENB2=0:POKEV+41,0 
:POKEV+4,B2:POKET2, 16 

:rem  75    1170 
REM  MUSIC  irem  1 

RETURN  ;rem  12  5 

BN=0 : F0RX=1 T03 : BG  =  2  fX 

:rem  64    1180 
IF{AANDBG)THENGOSUB900        1190 

: rem  100 
NEXT ! I FBN=2THENSC=SC+50 

:rem  207    1200 
IFBN=3THENSC=SC+100 

: rem  136 
POKE214, 20: PRINT :P0KE21 1,3    1210 
3:PRINTSC-RETURN   : rem  194 
IFBG=8THENGOSUB960 : RETURN 

:rem  142    1220 
IFPEEK( V+2*X) >=XP-24ANDPEE 
K(V+2*X) <=XP+24THENaoSUB95 
0:SC=SC+25:POKEV+2*X,0        1230 

: rem  54 
IFPEEK(V+2)=0THENB1=0 

:rem  207    1240 
1PPEEK( V+4 ) =0THENB2=0 : POKE 
T2,16  :rem  85 

RETURN  :rem  125 

BN=BN+1 :POKEV+21,PEEK(V+2I    1250 
) ANDl 5- BG: RETURN    : rem  51 
IFPEEK( V+2*X) >=XP-24ANDPEE 
K( V+2*X) <=XP+24THENLS=LS-1 
:GOTO  980  :rem  219    1260 

RETURN  :rem  12B 

REM  SPIDER  HITS  BIG  BUG 

:rem  52 


FORI=8T02STEP-2 : POKE53281 , 
I:POKE53280, I  : rem  120 
PRINT" (home) (WHT) 
[9  RIGHTlLIVES  REMAINING 
{SPACE}" rLS: NEXT  : rem  31 
FORI=1TO700 :NEXT: FORI=102 
4TO1055 ;POKEI+CL, 5 :POKEI , 
160:KEXT  trem  170 

POKE53  230,0:POKE53  281,0:R 
ETURN  :rem  50 

REM  SPIDER  LOST  ALL  LIVES 
:rem  13 
0=0 :XX=0 :Z=0 ; FORI=0TO3 : PO 
KEV+21,PEEKCV+21) AND (15-2 
tl) :POKEV+2*I,0:NEXT 

: rem  77 
PRINT'MCLR)  {6  DOWN}"SPC(l 
5) "GAME  OVER"  : rem  199 
B=13-LEK(STR5(SC) )/2:PRIN 
T"{2  DO\?N}"SPC(B)"YOUR  SC 
ORE  IS  ";SC  :rem  142 
PRINT" {2  DO(nj}"SPC(12)" 

Ervs)trigger{off)  to  star 

T"  :rem  130 

print" [2  down}"spc{15) " 
{rvs)k(off}  to  stop" 

:rern  120 
FR=PEEK(56320)AND16:GETAS 
:IFA$=""ANDFR<>0THEN1090 

: rem  139 
IFFR=0THEN100  :rein  22 
IFA5="N"THENEND  :rem  140 
GOTO  1090  :rem  199 
PRINT" {CLR)" :XP=100:CL=54 
27  2:V=5  3  248:SC=0:LV=0:LS= 
3:B1=0:B2=0:B3=0:F=56 

trem  254 
Vl=0tV2=0:V3=0jSl=4:S2=4: 
S3=12:HI=0jMA=25  5:Fl=51:F 
2=25:RETURH  :rem  122 
SD^L :  FORL=SDTOSD-i-24  ;  POKE 
L,0 :NEXT:T1=SD+4: Dl=SD+5 : 
R1=SD+6:H1=SD+1 :L1=SD 

:rem  245 
T2=TH-7  ;T3=T2+7  :  D2=Dl+7  :  D 
3=02+7 :R2=Rl+7 :R3=H2+7 :H2 
=Hl+7 !H3=H2+7 jL2=L1+7 

trem  18 
L3=L2+7 : POKE54296 , 15 : POKE 
Dl,17.-POKERl,24i  :POKED2,l 
7 : P0KER2 , 241 : POKED3 , 17 

:rem  34 
P0KER3, 241 : RETURN  : rem  91 
POKE53281 ,0:POKE53280,0:F 
ORI=1024TO1056 :POKEI+CL, 5 
:POKEI,160:NEXT  ; rem  184 
F0RI31984TO1743STEP-36 :PO 
KEI+CL, 1 :POKEI , 233 :NEXT 

:  rem  2 
FORI=1985T01733STEP-36 :PO 
KEI+CL, 2  rPOKEI , 160 :NEXT 

!  rem  3 
F0RI=1986TO1744STEP-36 :PO 
KEI+CL, 3 :POKEI , 160 :NEXT, 

:  rem  8 
FORI=1987TO1705STEP-36 : PO 
KEI+CL, 4 :POKEI, 160 :NEXT 

:  rem  8 
POKE1692+CL,7 : POKE 1692, 20 
1 :F0RI=1693TO1696 :POKEI+C 
L,7:P0KEI, 160: NEXT 

:rem  143 
POKE17  32+CL,7:POKE17  32,2  2 
1 :F0RI=1733TO1736 :POKEI+C 
L,7:POKEI,160!NEXT 

:rem  126 
POKE1772+CL, 7 : POKE1772,  22 
l:FORI=17  73T017  76:POKEI+C 
L,7iPOKEI,160:NEXT 

:rem  143 


1270  FORI=198BTO2016:POKEI+CL, 
15:POKEI,160:NEXT:FORI=19 
52t01 976  s  POKEI+CL , 1 5  J 

: rem  147 

1280  POKEI,160:NEXT:FORI=1916T 
01936rPOKEI+CL,15:POKEI,l 
60 :NEXT:FORI=1880TO1896 : 
: rem  134 

1290  POKEI+CL, IS rPOKEI, 160 :NEX 
T:FORI=1844T01856:POKEI+C 
L,15iPOKEI,160:NEXT 

:rem  89 

1300  FORI=1808TO1816sPOKEI+CL, 
15:POKEI,160:NEXT  : rem  97 

1310  FORI=1056TO1063:POKEI+CL, 
12 :POKEI , 102 :POKEI+960+CL 
, 12 !POKEI+960, 102 :NEXT 

:rem  80 

1320  FORI=1056TO2016STEP40!POK 
EI+CL,12:POKEI,102:POKEI+ 
7+CL, 12 : POKEI+7 , 102 :NEXT 
:rem  32 

1330  RESTORE:FORI=1100TO1260ST 
EP40:READA:POKEI+CL,1 :POK 
EI, A: NEXT  srem  88 

1340  FORI=1660TO1820STEP40:REA 
DA!P0KEI+CL,1;P0KEI,A:NEX 
T  :rem  8 

1350  DATA12,5,22,5,12,19,3,15, 
18,5  :rem  164 

1360  RETURN  { rem  170 

1370  POKEV+21,9sPOKE53275,14 

: rem  67 

1380  FORI=0TO3!POKEI+2040,192+ 
IsNEXT  :rem  151 

1390  RETURN  j rem  173 

1400  REM  LEVEL  2  ADJUSTMENTS 

; rem  165 

1410  S1=5:F1=31:F2=15   : rem  99 

1420  FORI=1904TO1907:POKEI+CL, 
INT(RND(0)*15+1) :POKEI, 16 
0tNEXT  :rem  137 

1430  FORI=1944T01947:POKEI+CL, 
INT{RND(0)*15+1) :P0KEI,16 
0:NEXT  sram  146 

1440  FORI=1984T01987:POKEI+CL, 
INT(RND{0)*15+1) :P0KEI,16 
0SNEXT: RETURN     : rem  181 

1450  Sl=6:Fl=3l!F2=15!RETURN 

:rem  130 

1460    S2=6:RETURN  : rem    221 

1470  S1=8:S3=16:F1=21:P2=10:RE 
TURN  :rera   228 

1480  Sl=10:S2=10sS3=20:Fl=17!F 
2=8: RETURN  srem   66 

1490  FORI=0TO3:POKEV+21,PEEK(V 
+21>AND(15-2tI) :P0KEV+2*I 
, 0 : NEXT  : rem    8 

1500    PRINT"  (CLR)  (6    DOVJN} 

[9    RIGHT) YOU    WON    THE   GAME 
"  : rem   129 

1510  PRINT" (2  DOWN} {9  RIGHTJYO 
UR    SCORE    IS    ";SC     srem    247 

1520  print" (2  down} [9  right) 
{rvs}trigger[off]  to  star 

T"  srem    169 

1530    PRINT" [2    DOVftI){9    RIGHT} 

{rvs)n{off)  to  stop" 

srem  156 
1540  FR=PEEK( 56320)AND16;GETA$ 
:IFA$  =  "  "ANDFRO0THEN1540 
srem  139 


1550 

IFFR=0THEN100 

srem  31 

1560 

IFAS="N"THENEND 

srem  149 

1570 

GOTO  1540 

1  rem  208 

1580 

1=12288 

srem  89 

1590 

READ  AsIF  A=256 

THEN  RETU 

RN 

srem  31 

1600  POKE  I, AsI=I+l sGOTO  1590 

srem  83 
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1610 

DATA 

224.126,7,96,255,6 

:rem  103 

1620 

DATA 

39,255,228,31,255,24 

8 

!  rem  1 

1630 

DATA 

1,255,128,193,255,13 

1 

trem  246 

1640 

DATA 

199,255,227,63,255,2 

52 

! rem  57 

1650 

DATA 

1,255,128,7,255,224 

:rera  149 

1660 

DATA 

31,255,252,33,255,13 

0 

:rem  242 

1670 

DATA 

97,255,134,225,255,1 

34 

:reiii  53 

1680 

DATA 

15,255,243,31,255,24 

8 

:rem  25  4 

1690 

DATA 

16,60,4,24,126,4 

;rem  25  0 

1700 

DATA 

24,219,6,120,219,7 

:reni  92 

1710 

DATA 

0,126, 0,0, 0,0: rem  72 

1720 

DATA 

0,0,0,0,3,255:rein  79 

1730 

DATA 

192,31,255,248,127,2 

55 

:reni  49 

1740 

DATA 

254,151,255,233,32,0 
trem   189 

1750 

DATA 

4,64,0,2,128,0 

:rem  142 

1760 

DATA 

1,192,0,3,192,0 

:reiii  192 

1770 

DATA 

3,192.0,3,192,0 

srem  195 

1780 

DATA 

3,192,0,3,192,0 

:rem  196 

1790 

DATA 

3,128,0,1,64,0 

! rem  144 

1800 

DATA 

2,32,0,4, 16, 0:rem  81 

1810 

DATA 

8,24,0,24,252,0 

:rem  189 

1820 

DATA 

63,0,0,0,0,0  trem  26 

1830 

DATA 

0,0,3,255,192,31 

:rem  241 

1840 

DATA 

255,248,127,255,254, 

151 

:rem  101 

1850 

DATA 

255,233,32,0,4,64 

;rem  43 

1860 

DATA 

0,2,128,0,1,192 

:rem  191 

1870 

DATA 

0,3,192,0,3,192 

:reni  196 

1880 

DATA 

0,3,192,0,3,192 

:rera  197 

1890 

DATA 

0,3,192,0,3,128 

:rem  197 

1900 

DATA 

0,l,64,0,2,32:rem  82 

1910 

DATA 

0,4,16,0,8,24:rem  90 

1920 

DATA 

0,24,252,0,63,0 

:reni  186 

1930 

DATA 

15,0,240,24,129,24 

:rein  87 

1940 

DATA 

48,0,12,240,0,15 

trem  239 

1950 

DATA 

152,129,25,207,0,243 
:rem  194 

1960 

DATA 

96,0,6,31,255,248 

:rem  5  7 

1970 

DATA 

63,255,254,127.255,2 

54 

;rem  56 

1980 

DATA 

255,255,255,127,255, 

254 

:rem  109 

1990 

DATA 

49,129,140,99,0,198 

srem  171 

2000 

DATA 

66,0,66,132,0,33 

trem  236 

2010 

DATA 

132,0,33,132,0,33 

srem  17 

2020 

DATA 

66,0,66,99,0,198 

:rem  6 

2030 

DATA 

247,129,239,0,0,256 

:rein  143 
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June  1985 

Comiiwdore  64  "Webster  Dines  Out" 
takes  advantage  of  iprite  graphics. 


,e:veL     i 


"Webster  Dines  Out"  for  the  VIC-20,  a 
fast  machine  language  game. 


Program  3:  Webster  Dines 
Out  For  VIC-20 

Translation  by  Kevin  Mykytyn, 
Editorial  Programmer 

please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 

0  PRINTCHRS( 147) "VIC-20  WEBSTE 
R   MAKER": PRINT  : rem    17  9 

1  IFPEEK(43)+256*PEEK(44)='6609 
THEN3  :rem   225 

2  PRINT "POKE6608,0:POKE43, 209: 
POKE44,25:NEW"!PRINT"{DOWNlE 
NTER    POKES,    LOAD    AGAIM":END 

: rem   90 

3  INPUT" {RVS}D[0FFJISK  OR 
fRVS)T{OFF}APE"rD? :IFD$="D"T 
HEND=8:GOT06         : rem  111 

4  IFD5<> "T"THEN3       : rem  159 

5  D=1:REM  FOR  64  CHANGE  57809 
(SPACE3T0  57812  AND  63].09  TO 

62957  srem  57 

6  X=0: PRINT: PRINT "READING  DATA 
..."  :rem    107 

7  READA:IFA=256THEN9       :rem    224 

8  POKE4609+X,A:X=X+1 :GOT07 

: rem  87 

9  PRINT" [DOWN] SAVING  WEBSTER": 
IFD=8THENSYS57809"@0:WEBSTER 
",8,0  :rem  134 

10  IFD=1THENSYS57809"HEBSTER", 
1,0  : rem  246 

11  POKE193,l:POKE194,18:POKE17 
4,65:POKE175,23:SYS63109:PR 
INT" {down] OK": END    : rem  93 

12  DATA  11,8,10,0,158,52,49,48 
,57,0,0  :rem  10 

13  DATA  0,169,147,32,210,255,1 
62,8,160,2,24        : rem  54 

14  DATA  32,240,255,169,189,133 
,170,169,153,160,20:rem  113 


15  DATA  32,30,203,120,173,4,14 

4.9.8.141. 15  :rem  253 

16  DATA  144,166,170,202,208,25 
3,32,159,255,32,228:rem  112 

17  DATA  255,201,13,208,233,88, 
32,197,20,169,10    srem  216 

18  DATA  141,174,2,169,25,141,1 
76,2,169,0,133      : rem  115 

19  DATA  2,133,252,133,253,165, 
162,133,254,169,1     srem  7 

20  DATA  133,3,169,23,133,5,169 
,30,133,6,160        :rem  54 

21  DATA  2,169,5,153,100,3,169, 
10,153,110,3        :rem  248 

22  DATA  136,16,243,169,2,141,1 
03,3,141,104,3       :rem  93 

23  DATA  169,4,141,113,3,141,11 
4,3,162,4,32         : rem  250 

24  DATA  17,19,202,16,250,169,1 
5,141,14,144,32     : rem  155 

25  DATA  81,19,32,188,16,32,173 
,16,32,56,17         :rem  24 

26  DATA  174,176,2,32,160,18,32 
,  173,18,32,136      : rem  115 

27  DATA  18,32,251,19,76,149,16 
,165,2,208,84        : rem  81 

28  DATA  165,197,201,64,240,78, 
72,32,6,17,104      : rem  124 

29  DATA  201,29,208,24,166,3,22 
4,1,240,18,198      :rem  117 

30  DATA  3,165,5,56,233,1,133,5 
,165,6,233  :rem  163 

31  DATA  0,133,6,76,0,17,201,37 
,208,24,166        jrem  210 

32  DATA  3,224,17,240,18,230,3, 
165,5,24,105        :rem  254 

33  DATA  1,133,5,165,6,105,0,13 
3,6,7  6,0  :rem  55 

34  DATA  17,201,32,208,8,169,1, 

133.2.169.16  :rem  12 

35  DATA  133,251,169,0,32,20,17 
,96,162,3,189        : rem  69 

36  DATA  174,17,168,169,32,145, 
5,202,16,245,96     : rem  183 

37  DATA  141,175,2,165,5,24,105 
,0,133,247,165      :rem  110 

38  DATA  6,105,120,133,248,162, 
3,189,174,17,168    : rem  22G 

39  DATA  189,176,17,145,5,173,1 
75,2,145,247,202    : rem  236 

40  DATA  16,239,96,165,2,240,94 
,32,155,17,176      : rem  129 

41  DATA  3,32,6,17,165,251,16,5 
,73,255,24  : rem  169 

42  DATA  105,1,24,105,220,141,1 
2,144,198,251,48    : rem  199 

43  DATA  22,160,0,169,39,145,5, 
165,5,24,105         :rem  12 

44  DATA  22,133,5,165,6,105,0,1 
33,6,76,144         : rem  213 

45  DATA  17,165,251,201,255,208 
,3,32,182,17,201    : rem  206 

46  DATA  239,208,9,169,0,133,2, 
141,12,144,240      :rem  110 

47  DATA  13,165,5,56,233,22,133 
,5,165,6,233         : rem  15 

48  DATA  0,133,6,32,155,17,176, 
5,169,0,32  :rem  171 

49  DATA  20,17,96,162,4,202,48, 
12,189,174,17        :rem  78 

50  DATA  168,177,5,201,40,144,2 
43,56,96,24,96      : rem  130 

51  DATA  22,23,1,0,36,35,34,33, 
169,0,141  :rem  102 

52  DATA  173,2,162,4-,165,3,221, 
90,3,240,40         :rem  210 

53  DATA  24,105,1,221,90,3,240, 
32,202,16,238        :rem  43 

54  DATA  173,178,2,201,3,144,4, 
169,100,208,6        :rem  60 


55  DATA  201,2,144,13,169,50,24 
,101,252,133,252    : rem  196 

56  DATA  165,253,105,0,133,253, 
96,142,177,2,224    :rem  217 

57  DATA  3,144,56,169,127,141,1 
70,2,141,12,144     srem  161 

58  DATA  32,131,17,198,251,173, 
170,2,24,105,127    s rem  214 

59  DATA  141,13,144,173,170,2,3 
2,20,17,165,162     :rem  156 

60  DATA  197,162,240,252,206,17 
0,2,16,230,32,6     :reni  154 

61  DATA  17,206,242,31,173,242, 
31,201,48,208,3     : rem  152 

62  DATA  76,101,20,96,238,178,2 
,32,17,19,169        :reni  80 

63  DATA  231,133,4,165,4,141,12 
,144,230,252,208    :reni  198 

64  DATA  2,230,253,32,251,19,23 
0,4,208,238,174     : rem  160 

65  DATA  177,2,206,174,2,240,3, 
76,204,17,169        :rem  72 

66  DATA  10,141,174,2,173,225,3 
1,201,54,240,41     :rera  146 

67  DATA  32,71,19,74,74,74,74,1 
68,185,141,31        trein  89 

68  DATA  201,32,208,241,185,142 
,31,201,32,208,234   :  reni  45 

69  DATA  169,40,153,141,31,153, 
142,31,169,0,153    ; rem  213 

70  DATA  141,151,153,142,151,23 
8,225,31,96,162,2     : rem  1 

71  DATA  189,90,3,205,93,3,208, 
10,32,71,19         :rem  224 

72  DATA  201,15,176,3,32,17,19, 
202,16,235,96        : rem  64 

73  DATA  152,72,160,0,136,208,2 
53,202,208,248,104   : rem  51 

74  DATA  168,96,162,4,189,90,3, 
168,222,60,3         r rem  36 

75  DATA  208,66,189,70,3,157,60 
,3,185,140,31        :rem  77 

76  DATA  201,40,176,5,169,32,15 
3,140,31,189,80     :rem  170 

77  DATA  3,208,23,192,22,208,12 
,165,162,201,5      :rem  108 

78  DATA  176,3,32,17,19,76,13,1 
9,254,90,3  irem  187 

79  DATA  200,76,250,18,192,0,20 
8,12,165,162,201    : rem  210 

B0  DATA  5,176,3,32,17,19,76,13 
,19,222,90  :rem  177 

81  DATA  3,136,185,140,31,201,4 
0,176,12,189,61     :rem  160 

82  DATA  19,153,140,31,189,66,1 
9,153,140,151,202     : rem  9 

83  DATA  16,159,96,173,36,145,1 
6,9,169,0,157        :rem  93 

84  DATA  80,3,169,1,208,7,169,1 
,157,80,3  :rem  132 

85  DATA  169,21,157,90,3,32,71, 
19,221,100,3         :rem  11 

86  DATA  144,248,221,110,3,176, 
243,157,60,3,157    : rem  219 

87  DATA  70,3,96,37,37,37,38,38 
,4,4,4  : rem  250 

88  DATA  6,6,165,254,10,10,56,1 
01,254,133,254      :rem  113 

89  DATA  96,169,30,141,15,144,1 
69,147,32,210,255    : rem  26 

90  DATA  169,28,32,210,255,169, 
0,133,247,169,21    : rem  224 

91  DATA  133,248,166,247,164,24 
8,24,32,240,255,169:rem  129 

92  DATA  42,32,210,255,198,248, 
16,239,169,20,133    :rem  21 

93  DATA  248,169,19,133,247,166 
,247,164,248,24,32   : rem  88 

94  DATA  240,255,169,42,32,210, 
255,198,247,16,239   : rem  79 

95  DATA  230,248,165,248,201,22 


,208,227,160,43,169:rem  119 

96  DATA  5,153,162,151,169,42,1 
92,22,176,2,169     : rem  181 

97  DATA  41,153,162,31,136,16,2 
37,169,40,160,0     :rem  165 

98  DATA  153,140,31,169,0,153,1 
40,151,162,21,160   :rem  253 

99  DATA  1,24,32,240,255,169,21 
3,160,19,32,30      :rem  113 

100  DATA  203,169,43,141,159,31 
,169,2,141,159,151  :rem  54 

101  DATA  96,28,83,67,79,82,69, 
32,48,32,32        : rem  249 

102  DATA  32,32,32,76,69,86,69, 
76,32,49,13        : rem  240 

103  DATA  32,32,32,32,32,32,32, 
32,31,76,73        :rem  201 

104  DATA  86,69,83,32,51,0,165, 
252,141,168,2       : rem  70 

105  DATA  165,253,141,169,2,169 
,0,141,170,2,141   :rem  204 

106  DATA  171,2,141,172,2,141,1 
73,2,162,15,14      : rem  93 

107  DATA  168,2,46,169,2,120,24 
8,173,170,2,109    jrem  167 

108  DATA  170,2,141,170,2,173,1 
71,2,109,171,2      :rem  96 

109  DATA  141,171,2,173,172,2,1 
09,172,2,141,172   t rem  202 

110  DATA  2,216,88,202,16,216,1 
60,0,162,2,189     srem  103 

111  DATA  170,2,72,74,74,74,74, 
32,86,20,104        :rem  14 

112  DATA    41,15,32,86,20,202,16 
,236,96,205,173  :  rein    157 

113  DATA    2,240,9,9,48,141,173, 
2,153,213,31  :rem    3 

114  DATA  200,96,104,104,162,11 
,160,3,24,32,240   : rem  185 

115  DATA  255,169,137,160,20,32 
,30,203,32,228,255  : rem  51 

116  DATA  201,89,208,3,76,62,16 
,201,78,208,242    : rem  171 

117  DATA  169,0,133,198,0,31,80 
,76,65,89,32        : rem  30 

118  DATA  65,71,65,73,78,32,89, 
47,78,0,144        :rem  252 

119  DATA  87,69,66,83,84,69,82, 
32,68,73,78         : rem  19 

120  DATA  69,83,32,79,85,84,13, 
13,13,13,31        :rem  225 

121  DATA  32,32,72,73,84,32,82, 
69,84,85,82         : rem  240 

122  DATA  78,32,84,79,32,80,76, 
65,89,0,160        srem  244 

123  DATA  0,185,0,128,153,0,28, 
185,0,129,153       srem  55 

124  DATA  0,29,136,206,241,169, 
255,141,5,144,160    : rem  6 

125  DATA  95,185,231,20,153,8,2 
9,136,16,247,96    :reni  1R3 

126  DATA  32,24,135,79,63,159,1 
59,95,8,48,193     irem  149 

127  DATA  242,252,249,249,250,2 
52,240,232,196,226, 162 

: rem  11 

128  DATA  192,0,63,15,23,35,71, 
69,3,0,0  :rem  63 

129  DATA  0,124,214,254,254,170 
,170, 126, 129, 153,231 

:rem  150 

130  DATA    219,255,36,195,1,1,1, 
1,1,1,1  :rern    25  3 

131  DATA    1,0,60,126,255,255,25 
5,126,60,170,187       : rem    210 

.32    DATA    255,255,255,255,255,2 
55,255,255,255,255,255 

:rem   28 

133    DATA    255,255,255,0,0,1,3,7 
,15,63,255,256  : rem    108 


Multicolored  bugs  scurry  across  the  lawn 
it!  "Webster  Dines  Out"  for  the  IBM 
PC/PCjr. 


Program  4:  Webster  Dines 
Out  For  IBM  PC/PCjr 

Translation  by  Charles  Branno7t, 
Program  Editor 

Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 


L6  1  'Webster  Dines  Out  for  IBM 
PC  witli  Color/Graphics  fldap 
tor  and  BASICA  or  Expanded 
PCjr 
IE  2  PLftY  "mb 

E£  100  DEFINT  fi-Z;KEY  OFF: WIDTH 
40: SCREEN  0,1,0: COLOR  7,0 
,0:CLS: RANDOMIZE  TInER 

ND  110  FOR  1=1  TO  llsCOLOR  , I : LO 
CflTE  I,l,(a:PRINT  SPACESO 
9):CQLQR  ,15-[:L0CflTE  24- 
1,1: PRINT  SPACE* (39) : NEXT 

FO  120  LOCATE  12,1: COLOR  0,15: PR 
INT  SPACE* (12) +"Webster  D 
ines  Out"+SPftCES(10) 

30  125  LOCATE  16, liPRINT" 

Do  you  want  sound?  (Y/N) " 
; :A*=INPUT*(1) : IF  A*="y" 
OR  A«="V"  THEN  SQUNDFLA6= 
1 

NJ  130  IF  SaUNDFLAG  THEN  PLAY  "1 
16D2cccd     c-ff-fq    faaa 

ba>lBd   1 li  ggqed    ccc 
<ag    fffdc    14<-f 

t:F  135  GOSUB  550 

Gfl  150  SCREEN  1:CLS: COLOR  1,0: LI 
NE  (0,  180)-(3I'?,  199)  ,  l.BF 

NK  160  LINE  (250, 180>-(319, 1B0) , 
2:LINE  (250, lB0)-(260, 175 
),2iLINE  -(280, 150) , 2:LIN 
E  -(2B3, 130) ,2:LINE  -(2B5 
,a0>,2:LlNE  -(2B3,50> ,2:L 
INE  -(270,20) ,2: LINE  -(0, 
20),2::LINE  (310, 50) - (285 
,13),2:LINE  (310, 50) - (3 10 
,13),2:LINE  (0. 13) - (285. 1 
3), 2 

m  161  LINE  (310,3a)-(295, 13) .2 
LINE  (310,2a)-(300, 13) .2 
LINE  (310,37>-!310,30) .0 
LINE  (295, 13)-(300, 13) ,2 
LINE  (310, 13)-(319, 13) .2 
PAINT  (0, 14) ,2,2:PSET  (30 
3,2B> , 1 

DI  162  A*="cll  3i-il  Liluuuuurdrdrdrd 
rdJlulu":DRAW  A$:PSET  (27 
2,29),1:DRAW  At:PSET  (27B 
,40),1:DRAW  A*:FOR  1=1  TO 
5:PSET  (250«RND(1> , 15) :D 
RAW    A4:NEXT 
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AA  165  FDR  1=0  TD  15  STEP  2: CIRC 
LE  (300, 100) , I ,0, , ,B/5!NE 
XT 

ti  170  BEETSPEED=2:BEET2SPEED=2: 
BUGSPEED=2: BU62BPEED=2: SC 
DRPSPEED=4 

LC  1S0  BEETSCaf!E=10:BUBSCORE=20: 
M1SSLIFE=10:BUGLIFE=10:BE 
ETL IFE=15:DRftINLIFE'=.5:P 
ROBABIL1TY=20 

rx  190  WEBX=100:WEBY=21:PUT  (WEB 
X,WEBY) ,WEB,PSET:LIFE!=ia 
0:GDSUB  1030: LOCATE  1,1 :P 
RINT"Bcore: ";0 

m   200  LIFE!=LIFE'-DRAINLIFE! :S0 
UND  40, . 1«S0UNDFLAG:GQSUB 
1030 

NP  210  IF  SCDRPFLAG  THEN  PUT  (SC 
DRPX,SCORPY) ,SCDRP,PSET:S 
CDRPX=SCDRPX-SCaRPSPEED: I 
F  BCDRPX':0  THEN  SCQRPFLftG 
=0:PUT  (SCORPX+SCORPSPEED 
■SCDRPY) .SCDRP 

RE  220  IF  BEETFLflG  THEN  PUT  (BEE 
TX,BEETY) ,BEET,PSET:BEETX 
=BEETX+BEETSPEED: IF  BEETX 
>231  THEN  BEETFLAG=0: PUT 
(BEETX-BEETSPEED.BEETY!  ,B 
EET 

tF  230  IF  BEET2FLflG  THEN  PUT  (BE 
ET2X,BeET2Y) , BEET2,PSET:B 
EET2X=BEET2X-BEET2SPEED: I 
F  BEET2X<0  THEN  BEET2FLftG 
=0:PUT  (BEET2X+BEET2SPEED 
,BEET2Y) ,BEET2 

CH  240  IF  BUGFLftG  THEN  PUT  (BUGX 
,BUGY) ,BU6,P5ET:BU6X=BUGX 
-BUGSPEEDiIF  HUGX':0  THEN 
BUGFLAG=0:PUT  (BUGX+BUGSP 
EED,BUGY) ,BUG 

BK  250  IF  BU62FLAG  THEN  PUT  (BUG 
2X,BUG2Y) ,BUG2,PSET:BUG2X 
=BUQ2X+BUG2SPEED: IF  BU62X 
>226  THEN  BUG2FLAG=0 : PUT 
(BUG2X~BUG2SPEED,BUG2¥) ,B 
UG2 

ftG  260  Kt=INKEY«:IF  K«=""  THEN  4 
20 

FG  270  IF  Kt=CHR«(0)+CHR4(75)  TH 
EN  PUT  (WEBX.WEBY) ,WEB:WE 
HX-WEBX+10*(WEBX>0) -PUT  ( 
WEBX , WEBY ) , WEB: GOTO  200 

fE  280  IF  K:s=CHR*(0)+CHRS(77)  TH 

EN  PUT  (WEBX, WEBY) ,WEB:WE 

BX=WEBX-10t  CWEBXC220) : PUT 

(WEBX, WEBY) , WEB: GOTO  200 

ED  290  IP  KtO"     "  THEN  420 

PL  300  FDR  I=WEBY  TO  145  STEP  3: 
PUT  (WEBX, n , WEB, PSET 

LJ  310  SOUND  500+It20, . 1»SDUNDFL 
AS 

y.f   320  NEXT:WBX='WEBX  +  15:NUMHIT=0 

DH  330  IF  BEETFLAG  THEN  IF  ABS(W 
BX-(10+BEETX-BEETBPEED) )< 
10  THEN  PUT  (BEETX-BEETSP 
EED, BEETY) , BEET: BEETFLAG= 
0:LIFE!=LIFE1+BEETLIFE:BC 
ORE  i  =SCaRE ! +BEETBCORE: GOB 
UB  '?70:NUriHIT=NUMHIT+l 

a  -40  IF  BEET2FLAG  THEN  IF  ABB ( 
HBX-(10+BEET2X+BEET2SPEED 
))<10  THEN  PUT  (BEET2X+BE 
ET2SPEED, BEET2Y) , BEET2: BE 
ET2FLAG=0: LIFE ! =LIFE ! +BEE 
TLIFE: SCORE ! =SCORE ! +BEETS 
CORE.-BOSUB  970:NUMHIT=NUH 
HIT+i 

GI  350  IF  BUGFLAG  THEN  IF  ABS(WB 
X - ( 1 2+BUG  X  +BUGBPEED ) X 1 0 
THEN  PUT  (BUGX+BU6SPEED,B 
U6Y ) , BUG : BUGFLAG=0 : L I FE ! = 
LIFEf+BUGLIFE: SCORE ! =SCOR 
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E!+BUGSCDRE:GOSUB  970: NUM 
HIT=NUHHIT+1 

W  360  IF  BUG2FLAG  THEN  IF  ABS(W 
BX-  (  12+BUG2X--BU(j2SPEED)  )  < 
10  THEN  PUT  (BUG2X-BUG2SP 
EED,BUG2Y) , BUG2: BUG2FLAG= 
0 : L I FE ! =L I FE I +BU6L I FE : SCO 
RE ! =SCORE ! +BU6SC0RE : GOSUB 
970:NUMHIT="NUMHIT  +  1 

m   370  IF  SCORPFLAG  THEN  IF  ABS ( 
WBX-(16+BC0RPX+BCDRPSPEED 
)><10  THEN  WEBY=145:G0T0 
1070 

FD  300  IF  NUMHIT=0  THEN  LIFE! -LI 
FE!-MISSLIFE: IF  LIFE!<i  T 
HEN  WEBY=145 

FL  390  GOSUB  1030: IF  NUMHIT>1  TH 
EN  SCORE  !=SCDRE!+10*-NUMH1 
T: GOSUB  980: FOR  W=l  TO  50 
: SOUND  3000+10«(W  AND  1), 
.05tSOUNDFLfiG:NEXT:LINE  ( 
0, 170) -(249, 179)  ,0,BF 

BB  400  FOR  1=140  TO  WEBY  STEP-3: 
PUT  (WEBX, I) ,WEB, PSET: SOU 
ND  1*20+500, . 1»B0UNDFLAG: 
NEXT: PUT  (WEBX , WEBY) , WEB, 
PSET 

C6  405  IF  INKEYSO""  THEN  405 

BL  410  GOTO  200 

10  420  IF  100»RND(1) >PROBABILITY 
THEN  200 

BK  430  ON  5«RND(1)+1  GUSUB  440,4 
60, 480, 500, 520: GOTO  200 

FC  440  IF  BEETFLAG=0  THEN  BEETFL 
AG=1:BEETX=0 

Nl  450  RETURN 

Kfi  460  IF  BEET2FLAG=0  THEN  BEET2 
FLAG=1:BEET2X=231 

m   470    RETURN 

FD  480  IF  BUGFLAG=0  THEN  BUGFLAG 
=1:BUGX=226 

NA  490  RETURN 

CF  S00  IF  BUG2FLA6=0  THEN  BUG2FL 
AG=1:BUG2X=0 

NB  510  RETURN 

JL  520  IF  BCORPFLAG=0  THEN  SCORP 
FLAG= 1 : BCORPX=2 1 0 

NF  530  RETURN 

LG  540  END 

LJ  550  BOTSCR=180 

PK  560  READ  X , Y: E= (4+INT ( ( X+7) /8 
)tY)/2:DIM  WEB(E) :WEB(0)= 
X : WEB ( 1 ) =Yi WEBY=BOTBCR-Y : 
FDR  1=2  TO  E:REflD  WEB(I): 
NEXT 

OH  570  READ  X , Y: E= (4+INT (( X+7) /8 
)tY)/2:DIM  BEET (E) : BEET (0 
) =X : BEET ( 1 >  =Y: BEETY  =  BOTSC 
R-Y:FOR  1=2  TO  E:READ  BEE 
T(I) :NEXT 

FK  5B0  READ  X , Y: E= (4+INT (( X+7) /8 

)tY)/2:DIM  BEET2(E) :BEET2 

(0) =X : BEET2 ( 1 ) =Y: BEET2Y=B 

DTSCR-Y:FOR  1=2  TO  E:READ 

BEET2(I) :NEXT 

HC  590  READ  X,Y:E= (4+INT ( (X+7) /B 
)*Y)/2:DIM  BUG(E) :BUG(0)= 
X:BUG(1 )=Y:BUGY=B0TSCR-Y: 
FOR  1=2  TO  E:REflD  BUG ( I ) : 
NEXT 

EA  600  READ  X , Y: E= (4+INT (( X+7 ) /B 
)»Y)/2:DIM  BU62(E) :BU62(0 
) =X : BUG2 ( 1 ) = Y : BUG2Y=B0TSC 
R-Y:FOR  1=2  TD  E:READ  BUG 
2(1) :NEXT 

CD  610  READ  X, Y:E=(4+INT( (X+7)/B 

)«Y)/2;DIM  SCORP (E) : SCORP 

( 0 ) =X : SCDRP ( 1 ) = Y : SCDRPY=B 

DTSCR-Y:FDR  1=2  TD  EsREAD 

SCORP(I) :NEXT 

HE  620  RETURN 

LF  630  END 


JO 

640 

El 

650 

C6 

660 

HE 

670 

LB 

680 

SL 

690 

HC 

700 

]P  710 


NO  720 


EL  730 


3! 

740 

01 

750 

PP 

760 

■-'■ 

770 

EL 

780 

T] 

790 

flP 

B00 

«! 

S10 

F!  820 


!Q  830 


MC  840 
y.i   850 


QA  860 


LD  870 


n   880 


OH 

S90 

LL 

900 

ON 

910 

KD 

920 

5F 

930 

KG 

940 

PF 

950 

CL 

960 

IN 

970 

JE  980 


DATA  !<H3C,S<Hla,iH0,5<H500, 

!tH0,!iH0,StH0,!iH500 

DATA  S<H0,S<H0,!.H0,S<HS00,t<H 

0,S<H0,S<H0,S<HFF00 

DATA    !tHF0,S<H0,!<H0,!<HFF0F, 

S.HFF,  S<H0,  !<H0,  S<HBF0A 

DATA    S<HEfi,!.H0,S<H0,J-HBF0A, 

S.HEA,  S<H0,  !<H0,  !<HBF02 

DATA    S<HE8,S<H0,t<H0,5cH3F00, 

&HC0,  !<H0,  a<H0,  &HFF0F 

DATA   !<HC0FF,«<H0,5(H0,!<HFFF 

F ,  StHFCFF ,  ScH0 ,  ScH570 1 ,  i<HF  SD 

F 

DATA    S<H7DFF,S<H54,!<HF14,S,H 

D5F5,S<HFF75,SrH4001  ,!,HF40, 

!<H75FF 

DATA  a,HFFDF,S<H1000,t<H5F01 
, &H55F7 , &HFF5D , &H54 , &H3 1 4 
.  S.HF55F 

DATA  S,H5CFF,!<H4001,S<H1540 
,  &HD5FF ,  &HFS7F .  !<H  1 040 ,  !tH4 
00],!<HD5FF 

DATA  !<HF07F.l<H14,!<H104,5<H 
F543,!<H14FC,5<H1,&H1410,S<H 
0 

DATA    ;,H100,!<H4040,!-H4000, 
StH0 ,  !<H0 ,  !,H  1 0 ,  S<H  1 ,  &H0 
DATA    S<H0,!<H4,!<H0,S<H0,3<H0, 
&H0,!<H0,  0,0,  0,0,  0,0,  0,0,0 
,0,0,0 

DATA  5,H26,S<H5,S<H8,S.HA8AA, 
S,Hfl0,  !<HAA2A,  &H58AA,  StHAA00 
DATA  SiHftBAA,&Hfi0,StHl  10J,!< 
H I  0 ,  !<H0 ,  S.H0 ,  &H0 ,  !<HFF  00 
DATA  8.H24,S<H5,!.HAA28,!<HAS 
,  S«H9600.  SrHAAAA,  !<H80,  S.HAA2 
8 

DATA  S<HA0AA,S<H0,!.H4110,S<H 
0.  S,H0,  S.H0,  !<H0,  !(H0 
DATA  S,H30,S!HA,SiH3,8<H0.&H0 
,iH300C,8<H0,&H0 
DATA  !<HC005,&H0,S<H0,S<H439 
S,S,HFFFF,S<HC0,  SiHSFS A ,  S<HFF 
FF 

DATA  !<HF4,!<H55fi,  !<H555S,S<H 
55,S<H900,  S<H5A5A,!<H54,!<H20 
00 

DATA    S<H2020,StH0,S<H2000,«<H 
2020,  S(H0,S<H0,  8<H0,  S.H0 
DATA    ScH0 

DATA    S<H30.!<HA,5.H0,5<H0.!<HC 
000,  hH0,  S<H0,  !.H300C 
DATA    ScH0,S<H0,S<H5003,3<H300 
,  S.HFFFF,  S<H56C  1 ,  SiHl  F00,  &»<= 
FFF 

DATA  S<HA5F5,!<H5500,!<H5555 
,  ?<HA550,  !<H1500,S<HA5A5,  !<H6 
0,SjH0 

DATA    !<H80H,S,H8,!<H0,StHB08, 
S<Hai!.H0,!<H0,!<H0 
DATA   &H0 

DATA   «<H40,S,HD,!<H0,!<H0,!<H2 
A00,!,H80,!<H0,!<H0 
DATA    !<HA202,3<HA0,!<H0,!<H0, 
S-H8202,  &HA0,  !!H80C,  &H0 
DATA    &H20A ,  !<H80 ,  ?<H2633 ,  StH 
0 ,  !<HA,  S(HC0 ,  S.HE600 ,  !,HA8e2 
DATA    S<H32A,!.H0,!<HA630,S<HA 
AAA,  !<HA8,  &H0,  !<HAAC3.  JcHAAA 
A 

DATA    8<HA0,S<H0,S,H2A3C,!<HAA 
2A,  !(Ha0,  !,H0,  S<H0,  S<HAA0A 
DATA    !<HB0,S,H0,!<H0,S,H1111. 
ScH0,  S(H0,  !<H0,  StH4444 
DATA   J<H0,!<H0,tH0,!<H0,!.H0, 
!<H0,J,HF40 

LOCATE  1, l:PRINT"Yummy I ": 
SOUND  110,2tSOUNDFLAG;FOR 
1=600  TO  500  STEP-2:SQUN 
D  I, . 1*S0UNDFLAG:MEXT  I 
LOCATE  1, l:PRINT"Score: ": 
SCORE ! 


JB  990  IF  SCORE 1>500  THEN  BU6SPE 
ED=3: BUG2SPEED=3: SCDRPSPE 
ED=5:PR0BflBILITY= IB: DRAIN 
LIFE :=.6:MIS5LIFE=15 

H  1000  IF  SCORE! >1000  THEN  BUGS 
PEED=4 : BUG2SPEED=4  :  BEETS 
PEED=3: BEET2SPEED=3: SCOR 
PSPEED=6:PR0BflBILITY=17: 
DRAINL1FE'=1 

LL  1010  IF  SCORE '>5000  THEN  BEET 
SPEED=4:BEET2SPEED=4:DRA 
INL IFE  I  =2:  PROBfiB  I L  I  Ty=  !  5 
;MISSLIFE=20 

IS  1020  RETURN 

JG  1030  IF  LIFE!>IB0  THEN  LIFE'= 
180 

!B  1040  LINE  (136,5>-(136+LIFE;. 

5),-2»(LIFE!<30)-3t (LIFE 

: >30)+2« (LIFE' >=60) :LINE 

<137+LIFE! ,5)-! 319, 5) .0 

D!  1050  IF  LIFEKI  THEN  1110 

JN  1060  RETURN 

ES  1070  FOR  J=l  TD  5 

rj  1080  FOR  1=145  TO  130  STEP-3: 
PUT  (WEBX, I>,WEB,PSET:NE 
XT: SOUND  50,SDUNDFLAG 

!G  1090  FOR  1=130  TO  145  STEP  3: 
PUT  tWEBX. I) .WEB,PSET:NE 
XT: SOUND  60,SDUNDFLflG 

6N  1100  NEXT  J 

AF  1110  FDR  1=1  TD  10:PUT  (WEBX+ 
5tRND ( 1 >  +5*RND ( 1 ) * (WEBX  > 
5) , WEBY+5*RND ( 1 > -5*RND ( 1 
)), WEB: SOUND  40,.1*SOUND 
FLAG: NEXT 

HO  1120  IF  INKEY«<;""  THEN  1120 

JL  1130  LOCATE  13, 13: PRINT"P1 ay 
Again?  (Y/N) "; : A«=INPUTS 
(1):IF  AS="y"  OR  A*="Y" 
THEN  RUN 

HH  1140  SCREEN  0,0.0 

HE  1150  END 

Program  5:  Webster  Dines 
Out  For  Apple 

Translation  by  Tim  Victor,  Editorial 
Programmer 

Please  refer  to  the  article  "Apple  MLX"  else- 
where  in  this  Issue  before  entering  this  listing. 
START  ADDRESS:  1100 
END  ADDRESS:     1F14 

1100:  20  AC  19  fi9  00  BD  0D  08  73 

1108:  SD  0E  08  A9  20  8D  IE  0S  SB 

1110:  85  E6  20  F2  F3  2C  57  C0  Al 

1118:  2C  52  C0  2C  30  C0  2C  10  AD 

1120:  C0  A?  40  85  E6  20  F2  F3  FE 

1128:  A9  60  B5  E6  20  F2  F3  A9  H4 

50  85  FC  A9  06  B5  FD  A9  02 

20  A0  27  91  FC  88  10  FB  B6 

E6  FD  A5  FD  C9  08  D0  04  FD 

ft9  0A  85  F'D  C9  0C  D0  E7  5A 

A5  FC  69  7F  90  DB  2C  53  49 

C0  A0  04  A9  01  20  7B  19  B0 

A0  70  A9  lA  A2  0B  20  98  DP 

1168:  19  A0  04  A9  02  20  7B  19  F4 

1170:  A0  7B  ft9  lA  A2  0B  20    98  B2 

117B:  19  A0  19  A9  01  20  78  19  9F 

1180:  A0  86  A9  lA  A2  0B  20  98  85 

1188:  19  A0  19  ft9  02  20  7B  19  B7 

1190:  A0  91  A9  lA  A2  0B  20  98  58 

1198:  19  A9  00  AB  99  fi8  0B  C8  C4 

11A0:  C0  7a  D0  FS  20  A3  16  20  C6 

HAS:  04  17  20  5A  16  A9  00  8D  21 

11B0:  18  08  8D  19  08    2C  2E  08  79 

IIBS:  30  06  20  60  12  4C  F6  11  3F 

11C0:  20  25  13  B0  26  2C  2F  08  Fl 

llCSs  10  13  20  3B  14  90  0B  20  82 

11D0:  58  14  90  17  4C  0B  11  20  78 

11 08:  E9  14  20  A7  15  2C  2E  08  31 

11E0:  10  09  20  39  15  20  72  16  09 

llES:  4C  F6  11  A9  00  8D  21  09  2D 

11F0:  8D  28  09  SD  2E  08  20  DD  8D 


1130: 
113BS 
1140: 
1148: 
1150: 
1158: 
1160: 


11F8: 

12 

AD 

18 

08 

F0 

17 

20 

9F 

D6 

498: 

4C 

SB 

14 

A0 

C9 

ft9 

lA 

A2 

55 

1200: 

16 

AD 

18 

0B 

IS 

6D 

11 

08 

BE  i 

4A0: 

IE 

20 

7C 

15 

CE 

0F 

08 

20 

A3 

1208: 

8D 

11 

0B 

90 

08 

20 

4F 

13 

B3 

4A8! 

36 

16 

AO 

0F 

08 

C9 

B0 

D0 

B2 

1210: 

90 

03 

4C 

0B 

11 

AD 

19 

06 

F0   ] 

4B0: 

36 

A0 

00 

A9 

03 

20 

78 

19 

FA 

1216: 

F0 

03 

20 

9B 

16 

AD 

00 

C0 

5B 

4B8: 

A0 

9C 

A9 

lA 

A2 

0F 

20 

98 

59 

1220: 

10 

3B 

2C 

10 

C0 

C9 

BD 

D0 

SA   ] 

4C0: 

19 

2C 

10 

C0 

AD 

00 

C0 

10 

80 

1228: 

03 

20 

9B 

15 

2C 

2E 

08 

30 

F4 

4CB: 

FB 

2C 

10 

C0 

C9 

CE 

F0 

04 

77 

1230: 

2C 

C9 

SB 

D0 

0A 

AD 

27 

09 

59 

4D0! 

C9 

EE 

D0 

03 

4C 

Fl 

16 

A9 

E3 

1238: 

F0 

23 

CE 

27 

09 

10 

IE 

C9 
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56  COMPUTE! 

June  19B5 

Avoid  the  mammoth  grasshopper  in 
Apple  "Webster  Dines  Out." 


"Webster  Dines  Out"  for  TI  uses  sprites 
for  the  spider,  scorpion  and  bugs. 


Program  6:  Webster  Dines 
Out  For  TI 

Translation  by  Patrick  Parrish, 
Programming  Supervisor 

100  RANDOMIZE  ::  CALL  C 
:  :  GOSUB  600  :  :  CA 
CREEN (2) : !  CALL  MAG 
(3) 

110  CALL  HCHAR ( 1 , 1 , 1 14, 
:  FOR  T=30  TD  32  : : 
L  yCHAR  < 1  , T,  1  14, 20) 
EXT  T  ! >  CALL  VCHAR 
9,114,2) 

120  CALL  HCHAR  (  19,  29,  1  1 
:  :  CALL  HCHAR  (20, 2S 
,  3)  :  J  CALL  HCHAR (3, 
CALL  HCHAR (4, 


17)  : 

17) 
130  CALL  HCHAR (2, 29, 1 14 

CALL  HCHAR (2, 27, 114 
140  CALL  HCHAR (2, 1 , 1 15, 

J   CALL  HCHAR (2,26,1 

150  CALL  HCHAR ( 19, 28, 1 1 

CALL  HCHAR ( 19, 29, 1 

:  CALL  HCHAR(20,26, 

: ;  CALL  HCHAR (20, 27 

) 
160  CALL  VCHAR (5, 30, 1 18 

CALL  VCHAR (6, 30, 1 16 

:  :  CALL  HCHAR (21,1, 

32)  :  :  0X  =  1 17  J  s  OY 
170  LEVEL=1  ::  LIVES=3 

CaRE=0  : :  E=0  >   :  BU 

3) =0  : :  BUGFL (4) =0 
180  CALL  SPRITE (#2, 100, 

5, 1+RND«256, 0, -15»R 

0) 
190  DISPLAY  AT(22,9):"L 

!  ■'  JLIVES  :  :  DISPLAY 


LEAR 
LL  S 
NIFY 

32)  : 

CAL 
:  :  N 
(3,2 

4,2) 
,  114 

28,  1 

29,  1 

)  :  : 
,2) 
25)  : 
1  7  ) 
2)  :  : 
13)  : 
112) 
,113 

)  :  : 

,13) 

104, 

9 

:  :  S 

GFL  ( 

5,14 
ND+1 

IVES 
AT  ( 


200 

210 
220 

230 
240 

250 

260 

270 


2B0 
290 


300 

310 

320 
330 

340 
350 

360 

370 

3B0 

390 
400 

410 

420 
430 
440 


450 


460 
470 

4B0 


23, 2) : "LEVEL: "; LEVEL  :: 
DISPLAY  AT (23, 16) : "SCO 
RE: " ; SCORE 

YPOS=DY  ::  XPDS=OX  ::  C 
ALL  VCHAR (YPOS/S+2, XPOS 
/S+1 , 32, 16) 

CALL  SPRITE(»1 , 136, 14, Y 
POS,XPQS)!:  CCDL=25  :: 
CALL  HCHAR (24, 4, 120, 25) 
FOR  L=3  TO  4  : :  IF  BUGF 
L(L)=0  AND  RND<.5  THEN 
CALL  SPRITE (#L, 96, - <L=3 
)»11-(L=4)»5, 145, 1+19B* 
RND, 0, -5+RND«10) ! :  BUEF 
L (L)=l 

NEXT  L  ;s  CALL  MOTION(# 
2,0,-lS»RND+10«LEVEL/2) 
CALL  KeY(0,K,S)!:  IF  S= 
0  THEN  CALL  J0YST(1,XR, 
YR)::  XR=SBN ( XR ) ELSE  XR 
= (K=B3) - (K=6a) 
COUNT=CaUNT+LEVEL  : :   IF 

CDUNT<10  THEN  330 
CALL  HCHAR (24, 4+CCOL, 32 
) : !  COUNT=0  : :  CCaL=CCD 
L-1  ::   IF  CC0LO3  THEN 
2B0 

FOR  K-1  TD  30  STEP  2  :  : 
CALL  SOUND (50, 1 175, K) : 
:  NEXT  K 

IF  CC0L<>-1  THEN  330 
L1VES=LI VES-i  :s  CALL  S 
PRITE (#1 , 140, 14, YPDS, XP 
OS) ! :  FOR  1=3  TO  17 
CALL  L0CATE(«1 , YPOS+I t8 
,XPOS)::  CALL  S0UND(25, 
(23-1  )  *20,  3)  :  :   IF  I017 

THEN  320 
FOR  L=l  TO  800  : :  NEXT 
L 

NEXT  I  : :  IF  LIVES=0  TH 
EN  710  ELSE  190 
XPDS=XP0S-SGN(XP0S-5) *X 
R«(XR=-1>*16-BGN(197-XP 
OS) «XR» ( XR=1 ) » 16 
CALL  LOCATE (#1 , YPOS, XPD 
S) 

FOR  L"3  TD  4  : :  CALL  MO 
TION (*L, 0, -5+RND»10) : : 
NEXT  L 

CALL  KEY(1,K,S>::  CALL 
KEY  (0,i<l,S)::   IF  (KOia 
)  *  (K1032)  THEN  220  ELSE 

COUNT= 1 0 
FDR  1=3  TO  IB  : :  CALL  H 
CHAR ( (YPDS+(I-1)«8)/B,X 
POS/a+1 , 12S) : :  CALL  LOC 
ATE(4tl,YP0S  +  ItB,  XPOS) 
IF  I=1B  THEN  CALL  CDINC 
(ALL.OELSE  510 
IF  C=0  THEN  510 
FOR  L=2  TO  4  : :   CALL  MO 
TIDN (#L, 0,0)::  NEXT  L 
FL=0  : :  FDR  L=2  TO  4  : : 
CALL  CDINC (#1 , «L, 10, C) 
IF  C=0  THEN  470 
IF  L=2  THEN  450 
FOR  K=9  TD  21  STEP  3  !! 

CALL  SOUND ( 10, -1 ,K) ! : 
NEXT  K  ::  CALL  DELSPRIT 
E{ttL)  :  5  E  =  2  :  !  FL  =  FL+1 
!!   BUGFL(L)=0  !!   GOTO  4 
70 
CALL  SPRITE(#1, 140, 14, 1 


44, XPOS) 
1  : :  E=l 

50, -6, 4) 
5  STEP  5 
10, -5, K) 
FOR  T=l  TO 
T  : !  L=4 
NEXT  L  ! ! 
THEN  510 
PTS=FL«2S 


LIVES-LIVES- 
!  CALL  SDUND( 

FOR  K=5  TD  1 
:  CALL  SOUND ( 

NEXT  K 

600  : :  NEXT 

IF  E=0  DR  E=l 
: :  PTS=- (PTS= 


25) »25- (PTS-50) «i00  :: 
SC0RE=SCORE+PTS  ::  DISP 
LAY  AT (3, 22) : SCORE 

490  IF  SCORE>=100»LEVEL  THE 
N  LEVEL=LEVEL+1+ (LEVEL= 
6)::  DISPLAY  AT ( 23 , 8 ) : L 
EVEL; 

S00  CC0L=25  ::  CALL  HCHAR(2 
4, 4, 120, 25) : :  E=0 

510  NEXT  I 

520  IF  E=l  THEN  CALL  DELSPR 
ITE(«1)::  CALL  VCHAR(YP 
OS /a +2, XPOS/B+1 , 32, 16) ! 
:  IF  L1VES=0  THEN  710  E 
LSe  E=0  ::  GOTO  190 

530  FDR  1=17  TO  2  STEP  -1  : 
!  CALL  LOCATE (ttl , YPOS+I 
*S,  XPOS)  :  :  CALL  HCHAR (  ( 
YPOS+I *B) /a,XP0S/8+l,32 
) : :  NEXT  I  : :  CALL  LOCA 
TE (#1 , YPOS, XPOS) 

540  CALL  COINC (ALL, C) : :   IF 
C=0  THEN  220 

550  FOR  I"2  TO  4  : !  CALL  MO 
TIDN (*I ,0,0) ! :  NEXT  I 

260  FOR  L=3  TD  4  : :  CALL  CO 
INC(i2, #L, 10, CI) 

570  IF  C1=0  THEN  590 
580  FOR  1=5  TO  15  STEP  5  s: 
CALL  SOUND ( 10, -5, I ) ; ! 
NEXT  I  : :  CALL  DELSPRIT 
E (#L) : :  BUGFL (L ) =0 
590  NEXT  L  ! :  GOTO  220 
600  FOR  T=112  TD  IIB  :;  REA 
D  A*  ::  CALL  CHAR(T,A«) 
: :  NEXT  T 

610  CALL  CHAR (96, "000000000 
0000000000000070F1F1212 
0000000000000000000000E 
0F0FB4B4B" ) : :  REM  BUG 

620  CALL  CHAR( 100, "0000307B 
C4C0E060303B3B3F1F0F090 
400000000000ei033204EFA 
FEF8F52291") : :  REM  SCOR 
PIDN 

630  CALL  CHAR ( 104, "FFFFFFFF 
FFFFFFFF" , 128, "10101010 
10101010", 120, "00000000 
0000FFFF" ) 

640  CALL  CHAR ( 136, "03070507 
030163970C3E4E1C6FB70B3 
0C0E0A0E0C080C6E9307C72 
3BF6E1D00C" ) : :  REM  WEBS 
TER 

650  CALL  CHAR ( 140, "00000000 
20444B482F1F3F7B7B7B3F1 
F00000000  10884S4BD0E0F7 
7D7F77E0C0"! : :  REM  WEBS 
TER2 

660  DATA  000000031F3F7FFF, 0 
0  0F1F1FFFFFFFFF,FFFFFFF 
FFFFFFFFF, FFFFFFFF00000 
000,0F0F0F0F0F0F0F0F 

670  DATA  FFFFFF3F1F0F0F07, 0 
F0F0F0707070707 

680  FOR  1=2  TO  8  : :  CALL  CO 
LOR (1,15,1)::   NEXT  I 

690  CALL  COLOR( 1 , 15,2, 10, 3, 
1,11,7,1,12,5,1,13,16,1 
) 

700  RETURN 

710  DISPLAY  AT(22, 15) : LIVES 

: :  DISPLAY  AT ( 10, 9) : "G 

AME  OVER"is!  DISPLAY  AT 

(12,5):"PLAY  AGAIN  (Y/N 

720  CALL  KEY(0,K,S)::   IF  S= 

0  THEN  720 
730  IF  K=7B  OR  K= 1 1 0  THEN  E 

ND 
740  IF  K-89  OR  K=121  THEN  C 

ALL  HCHAR ( 10, 9, 32, 1 1 ) : : 
CALL  HCHAR( 12, 7, 32, 19) 

;:  GOTO  170  ELSE  720  © 
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The  Hitchhiker's  Guide  To  The  Gaiaxy 


Neil  Randall 


Requirements:  Commodore  64  with  a  disk 
drive;  Atari  400/800,  XL,  or  XE  with  at 
least  48K  RAM  and  a  drive;  Apple  Il-series 
computer  with  at  least  48K  RAM  and  a 
drive;  Apple  Macintosh;  IBM  PC,  PCjr,  or 
MS-DOS  2.0  compatible  computer  with  at 
least  48K  RAM  and  a  drive:  TI-99/4A  zoith 
48K  RAM,  a  disk  drive,  and  Extended 
BASIC  or  Mini-Memory  or  Editor/ 
Assembler  cartridge;  or  a  Kaypro  II  with 
CP/M.  Versions  for  the  Apricot  and  Epson 
QX-10  are  forthcoming. 


The  Hitchhiker's  Guide  to  the  Galaxy  may 
well  be  Infocom's  best  effort  to  date. 
There  are  several  reasons  for  this.  First, 
the  comic  absurdity  of  Douglas  Adams' 
popular  radio/television/novel  series 
translates  well  to  Infocom's  style  of  in- 
teractive fiction.  Second,  the  story  has  a 
built-in  sense  of  humor,  which  increases 
the  player's  enjoyment  and  reduces 
frustration,  Third,  the  story  itself  is 
fascinating. 

A  best-selling  novel  and  hit  BBC 
radio  series,  later  adapted  for  TV,  The 
Hitchhiker's  Guide  to  the  Galaxy  follows 
the  hilarious  adventures  in  space  of 
Arthur  Dent.  Dent  is  an  ordinary 
Englishman  who  one  day  witnesses  the 
destruction  of  Earth  (to  make  room  for 
an  Intergalactic  Bypass).  He  eventually 
gets  caught  in  the  problem  of  finding  the 
ultimate  question  to  Life,  the  Universe, 
and  Everything,  The  story  is  filled  with 
absurd  characters  and  wonderfully  il- 
logical events. 

The  narrative  nature  of  The  Hitch- 
hiker's Guide  is  well  suited  to  Infocom's 
text-only  adventure  format.  In  addition, 
Infocom's  software  boasts  the  industry's 
most  advanced  parser,  that  part  of  an 
adventure  program  which  interprets  the 
commands  you  enter.  This  means  you 
can  enter  commands  as  normal  English 
sentences  and  generally  the  computer 
will  understand  you.  Infocom  adven- 
tures take  a  long  time  to  play,  mainly 
because  each  contains  several  major 
puzzles  you  must  figure  out. 
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Comic  Relief 

Infocom's  version  of  the  story  begins 
like  the  original  series.  Playing  the  role 
of  Arthur  Dent,  you  awaken  to  the  sight 
of  a  bulldozer  about  to  demolish  your 
home.  Solving  this  puzzle  is  quite  easy, 
but  the  next  major  puzzle,  aboard  the 
Vogon  spacecraft,  is  more  difficult.  In 
order  to  understand  all  alien  languages, 
you  have  to  find  a  way  to  get  a  Babel 
Fish  into  your  ear  (honest!).  Although 
somewhat  frustrating,  this  puzzle  is  en- 
tirely true  to  the  humor  of  the  radio 
series,  and  even  if  you  don't  solve  it, 
you'll  get  several  good  laughs. 

Humor,  in  fact,  is  the  game's  saving 
grace.  It  distinguishes  The  Hitchhiker's 
Guide  from  several  other  Infocom  ad- 
ventures. Most  Infocom  games  take  a 
long,  long  time  to  play,  and  for  the  most 
part  you  are  simply  solving  puzzles. 
After  awhile  the  puzzles  may  become 
frustrating,  and  in  desperation  you  may 
begin  seeking  out  other  people  to  assist 
you  in  your  struggles. 

Not  so  with  The  Hitchhiker's  Guide. 
1  am  committed  to  solving  the  thing 
myself,  since  I  believe  I  have  as  small  a 
grasp  on  logic  as  did  the  original  series.  I 
am  far  enough  into  the  adventure  to 
report  that  the  game's  humor  consis- 
tently prevents  you  from  becoming  too 
frustrated.  Adams'  humor  is  sprinkled 
throughout,  in  descriptions  (one  object 
you  find  is  "the  thing  which  your  aunt 
gave  you  which  you  don't  know  what  it 
is")  and  in  the  actions  of  the  characters 
and  robots  (Marvin  the  Paranoid  An- 
droid never  fails  to  elicit  a  laugh).  For 
Infocom's  version  of  The  Hitchhiker's 
Guide  to  be  successful,  it  had  to  be  con- 
sistently funny  and  consistently  absurd. 
Happily,  it  is  both. 

It  also  had  to  diverge  from  the  series 
in  one  major  respect:  Arthur  Dent's  role 
had  to  change  from  spectator  to  major 
participant.  In  the  original  story.  Dent  is 
swept  along  by  the  strange  happenings 
around  him.  But  interactive  fiction  is 
strongest  when  your  character  can,  to 
some  degree,  affect  those  happenings. 


The  role  of  passive  observer  does  not 

translate  well  to  an  adventure  program. 
If  it  ever  does.  The  Hitchhiker's 
Guide  to  the  Galaxy  may  be  redone  with 
a  different  emphasis.  But  until  then,  In- 
focom has  given  us  a  thoroughly  enjoy- 
able rendition  of  a  delightfully  bizarre 
story.  Recommended  for  all  adventure 
gamers. 

The  Hitchhiker's  Guide  to  the  Galaxy 

Infocom,  Inc. 

55  Wheeler  Street 

Cambridge,  MA  02U8 

$34.95  (Atari  &  Commodore  64) 

S39.95  (all  other  versions) 


Super-Text 


Arthur  Leyenberger 

Requirements;  Commodore  64  ivith  a  disk 
drive;  Atari  400/800,  XL,  or  XE  zvith  at 
least  48K  RAM  and  a  drive;  Apple  U-series 
computer  with  at  least  48K  RAM  and  a 
drive  (80-column  card  optional);  IBM  PC 
with  at  least  48K,  a  drive,  and  DOS  1.1  (not 
compatible  with  the  PCjr).  A  printer  is 
highly  recommended.  The  version  re- 
viewed was  for  the  Atari;  other  versions 
are  similar. 


According  to  recent  surveys,  word  pro- 
cessing is  second  only  to  entertainment 
as  the  primary  application  for  most 
home  computers.  Whether  you're  jot- 
ting a  short  letter  to  Aunt  Viola  or  com- 
piling a  term  paper,  word  processing  can 
make  your  writing  less  painful  and  even 
enjoyable. 

There  are  scores  of  word  processors 
available  for  computers  these  days.  Your 
chief  criterion  for  selecting  one  should 
be  that  it  has  the  functions  you  require 
to  accomplish  your  writing  tasks.  It  is 
also  important  to  consider  your  future 
needs  so  you  won't  outgrow  your  word 
processor. 


COMPUTE!  Classified 


COMPUTE!  Classified  is  a  low-cost  way  to  tell  over  350,000 
microcomputer  owners  about  your  product  or  service. 

Rates:  $25  per  line,  minimum  of  four  lines.  Any  or  all  of  the  first  line  set  in  capital  letters 
at  no  charge.  Add  $15  per  line  for  boldface  words,  or  $50  for  the  entire  ad  set  in 
boldface  (any  number  of  lines). 

Terms:  Prepayment  is  required.  Check,  money  order,  American  Express,  Visa,  or 
MasterCard  are  accepted. 

Form;  Ads  are  subject  to  publisher's  approval  and  must  be  either  typed  or  legibly 
printed.  One  line  equals  40  letters  and  spaces  between  words.  Please  underline  words 
to  be  set  in  boldface. 

General  Information:  Advertisers  using  post  office  box  numbers  in  their  ads  must  supply 
permanent  address  and  telephone  numbers.  Orders  will  not  be  acknowledged. 
Ad  will  appear  in  next  available  issue  after  receipt. 

Closing:  lOth  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes  March 
10th).  Send  order  and  remittance  to:  Harry  Blair,  Classified  Manager,  COMPUTE!, 
P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone,  call  Harrj'  Blair  at 
(919)  275-9809. 

Notice;  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of  advertisers, 
but  will  attempt  to  screen  out  misleading  or  questionable  copy. 


SOFTWPDE 


FDEE  EDUCPTIONPL  SOFTWPDE  CPTPLOG— 
Fdp,  Conjkdoy  64,  Fnnle  IIO,  TDS-80— Islbnd 
Sollwbre,  PO  Pox  300,  Dent.  G,  Lbke  Grove,  NY 
11755.  (516)585-3763. 


PTTENTION  POPLE,  IPM,  Cofhodpve,  Ptbrx, 
TI  99/4P  ysers,  Extensxve  selectxon  ol  soltw*— 
Send  $1.00  lor  cbtblog,  snecxly  model  '' 
Gnternrxses,  3687  Mexxco.  We'* 
43081. (604)  880-7725  H" 


CDPPS  SIMULPTOD— Soystxck  centpklled 
bettxng,  dxce  bnd  Ibyoyl  dxbnlby;  nb-i"- 
dynt'5,  odds,  hbrdwbys,  etc.  Pf^- 
$16.00.  Symsolt  Entemr^' 
07012. 


CDPPS  SIMULPTOD— Joystxck  controlled 
bettxng,  dxce  bnd  Ibyoyt  dxbnlby;  nbss,  came 
dontls,  odds,  hbrdwbys,  etc.  Ptbrx  800  dxsk. 
$3  6.00.  Symsolt  Entemixses,  Pox  634,  Clxlton, 
N]  07012. 

FDEE  EDUCPTIONPL  SOFTWPDE  CPTPLOG— 
Pel,  Commodore  64,  Pnnle  II +  ,  TDS-80— Ihlbnd 
Soltwdxe,  PO  Pox  300,  Dent.  G,  Lbke  Grgke,  AY 
11755.  (566)255-3755. 

PTTENTION  PPPLE,  QPM,  Cohhilmore,  Ptbrx, 
TI  99/4P  ysers,  Extensxve  selectxon  ol  soltwbre. 
Send  $1.00  lor  cbtblog,  snecxiy  model.  Celjxm 
Entemrxses,  3687  Mexxco.  Westervxlle,  Ohxo, 
43081.  (614)  890-7725  bller  4:30. 

Wrxte  lor  FDEE  120  nbge  cbtblog,  DYNPCOMP, 
P.O.  Pox  18129.  rochester,  NY  14618.  Stbte 
Comnyter. 

IPM-PC  CD  COMPPTIPLE:  Conversxo- 
Pmerxcbn  ynxts  o!  mebsyrement=  '' 
PDEP  MPSS  VOLUME  TF''" 
TO/FDOM  Metrxc  - 
TIPS  bt  Ixni"-  ■ 
bdbn" 


Wrxte  lor  F'^'" 
RO  ^ 


-^ 


1^ 


jixonbl 
,iio  or  color 
..ys  $2.00  !or 
...iig  to  Lbkdmbrk  Soltwbre, 
ox  490,  Poroklyn,  NY  U  230. 


CDPPS  SIMULPTOD— Loistxck  cwonkroled 
bettxng,  dxce  bnd  Ibyoyt  dxbnlby;  nbss,  come 
donts,  odds,  hbrdwbys,  etc.  Ptbrx  800  dxsk. 
$16.00.  Symsolt  Entemrxses,  Pox  634,  Clxlton, 
NJ  07012. 


-.--,  Ptbrx, 
-,xon  ol  soUwbre. 
^,  jnecxly  model.  Celjxm 
,,  iV^exxco.  Westervxlle,  Ohxo, 
.tj  890-7725  biter  4;30. 

Wrxte  lor  FDEE  120  nbge  cbtblog,  DYNPCOMP, 
P.O.  Pox  18129.  Flichsdter,  NV  14618.  Stbte 
Comnyter. 

IPM-PC  OD  COMPPTIPLE:  Conversxon  ol 
Pmerxcbn  ynxts  ol  mebsyrements  (LENGTH, 
PDEP  MPSS  VOLUME  TEMPEDPTUDE) 
TO/FDOM  Metrxc  sistams  n!ys  edycbtxonbl  TIPs 
bt  Ixngcrtxns.  Snecxiy  Mono  or  color  bdbnter. 
Send  $14.95  nlys  $2.00  lor  shxnnxng/hbndbcng 
to  Lbndmbrk  Soltwbre,  INC.,  PG  Pox  490, 
Prooylyn,  NY  11230. 


^^l^IONPL  SOFTWPDE  CPTPLOG— 
.,  iJonmmfyre  64,  Pnnic  Il-h,  TDS-80— Islbnd 
Soltwbre,  PO  Pax  300,  Dent.  G,  Lbke  Korove, 
DY  11733.(512)589-3755. 

PTTENTION  PPPLE,  IPM,  Comssudpre,  Ptbrx, 
TI  99/4  P  ysers,  Extensxve  selectxon  ol  soltwbre. 
Kdnd  $1.00  lor  cbtblog,  snecxiy  model.  Celjxm 
Enlemrxses,  3687  Mexxco.  Westervxlle,  Ahxo, 
43081.  (614)  810-7625  biter  4:30. 

Wrxte  lor  FDEE  J  20  nbge  cbtblog,  DYNPCOMP, 
P.O.  Pox  18129.  rochester,  NY  14618.  Stbte 
Comnyter. 

IPM-PC  OD  COMPPTIPLE:  Conversxon  ol 
Pmerxcbn  ynxts  ol  mebsyrements  (LENGTH, 
PDEP  MPSS  VOLUME  TEMPEDPTUDE) 
TO/FDOM  Metrxc  systems  nlys  edycbtxonbl 
TIPs  bt  Ixngertxns.  Snecxiy  Mono  or  color 
bdbnter.  Send  $14.95  nlys  $2.00  !ar 
shxnnxng/hbndlxng  to  Lbndmbrk  Soltwbre 


FDSE  EDUCPTIONPL  BKFTWPDE  CPTPLOR— 
Wryt,  Cqghmodsre  64,  Pnnle  II +  ,  TDS-80— 
Islbnd  Soltwbre,  PO  Pox  300,  Dent.  G,  Lbce 
Zrmve,  NB  12755.  (316)589-3755. 

PTTENTION  PPPLE,  IXM,  Cqcvodorx,  Ptbrx,  TI 
99/4P  ysers,  Extensxve  selectxon  al  soltwbre. 
Swpd  SI. 00  lor  cbtblog,  snecxiy  model,  Celjxm 
Entemrxses,  3687  Mexxco.  Westervxlle,  Vhxo, 
43081.  (610)  890-7725  biter  4:30. 

Zrxte  lor  FDEE  120  nbge  cbtblog,  DYNPCVMP, 
W.O.  Pox  18129.  rochester,  NY  14618.  Stbte 
Comnyter. 

IPM-PC  OD  COMPPTIPLE:  Conversxon  ol 
Pmerxcbn  ynxts  ol  mebsyrements  (LENGTH, 
PDEP  MPSS  VOLUME  TEMPEDPTUDE) 
TO/FDOM  Metrxc  systems  nlys  edycbtxonbl 
TIPs  bt  Ixngertxns.  Snecxiy  Mono  or  color 
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with  $T9.95  Software  Purchase 


COMPUTER  AND  SOFTWARE 
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•170K  Disk  Drive  5149.00* 

•  Tractor  Friction  Printer  ST69.00 

•  13"  Hi-Res  Color  Monitor  5189.00* 

*  See  Page  13 


■  COMMODORE  64  COMPUTER  S13f  .00 

Ifou  pay  only  SI39.00  wiih  ihe  51^  95  soltwore 
purchose  see  below,  when  you  order  the  powerful 
84K  COMMODORE  6J  COMPUTER'  (.ESS  the  value  ol 
Ihe  SPECIAL  SOFTWARE  DISCOUNT  COUPON  we  pock 
wilh  your  computer  that  allows  you  to  SAVE  OVER 
5500  off  software  sale  prices''  Wilh  only  SlOO  of 
savings  applied    your  net  cornputer  cost  is  S39  00  '  ! 

*  170K  DISK  DRIVE  (149.00 

You  pay  only  SI^J^-OO  (witfi  ttie  SI? '55  software 
purchase  see  belowi  wfien  you  order  the  I70K  Disl^ 
Drive'  LESS  the  volue  of  the  SPECIAL  SOFTWARE 
DISCOUNT  COUPON  we  pock  wilh  your  disk  drive  that 
ollows  you  to  SAVE  OVER  5500  off  software  sole 
prices!  '  With  only  SIOO  of  savings  opplied  your  net 
disk  drive  cast  is  549, 00 

•  13"  HI-RES  COLOR  MONITOR  $184.00 

You  poy  oniy  5189  00  jwith  the  S19  95  software 
purcftose  see  below  when  you  order  this  }J  COLOR 
MONITOR  with  shorper  and  clearer  resolution  thon 
any  other  color  monitors  we  hove  tested'  LESS  volue 
of  the  SPECIAL  SOFTWARE  DISCOUNT  COUPON  we 
pock  with  your  monitor  that  allows  you  to  save  over 
S500  off  softwore  sale  prices''  Wilh  only  5100  of 
savings  applied  your  net  color  monitor  cost  is  only 
S89,00.  (16Coiori:i. 

SOCOLUIVIN  80  CPS 
TRACTION/FRICTION  PRINTER  S169.00 

You  pay  only  5^69  00  when  you  order  Ihe  Comstar  T  F 
deluxe  line  printer  that  prints  8  jxfl  full  size  single 
sheet  roll  or  fan  foJd  paper  labels,  etc.  Impact  dot 
matrix  bidirectional.  LESS  the  value  of  the  SPEClAt 
SOFTWARE  DISCOUNT  COUPON  we  pack  with  your 
printer  that  allows  you  to  SAVE  OVER  5500  off 
software  sate  prices!!  With  only  SIOO  of  savings 
opplied  your  net  printer  cost  is  only  S69.00. 

80  COLUMN  BOARD  S7f  .00 

Now  you  program  80  COLUMNS  on  the  screen  at  one 
time!  Converts  your  Commodore  64  io  80  COLUMNS 
when  you  plug  in  the  BO  COLUMN  EXPANSION 
BOARD''  PLUS  4  slot  expander'  Can  use  wilh  most 
softwore. 

BO  COLUMNS  IN  COLOR 
EXECUTIVE  WORD  PROCESSOR  $39.00 

This  EXECUTIVE  WORD  PROCESSOR  is  Ihe  finest 
ovoiloble  for  ihe  COMMODORE  64  computer'  The 
ULTIMATE  FOR  PROFESSIONAL  Word  Processing. 
DISPLAYS  40  or  BO  COLUMNS  IN  COLOR  or  block  ond 
white!  Simple  to  operoie  powerful  text  editing  with 
350  WORD  DICTIONARY  complete  cursor  and 
insert  delete  key  controls  line  ond  paragraph 
insertion,  automatic  deletion  centering  margin 
settings  ond  output  to  all  printers'  Includes  a 
powerful  moil  merge 
List  S99  00  SALE  i39.00  Coupon  529.95 


SALE 


CALL  H    PRICES 

BEFORE  ■    MAY 

YOU  ■    BE 

ORDER  ■    LOWER 


SPECIAL  SOFTWARE  COUPON 


Wo  pack  a  SPECIAL  SOFTWARE  DISCOUNT 
COUPON  with  every  COMWODOliE  64 
COMPUTER,  DISK  DRIVE.  PRINTER,  or 
MONITOR  we  sell]  This  coupon  ollowx  you 
to  SAVt  OVER  5500  OFF  SALE  PRICES!! 


(Examples) 

PROFESSIONAL  SOFTWARE 

COMMODORE  64 


Name 

111! 

Snls 

Cpupon 

Executive  Word  Processor 

S9<f  00 

539  00 

539  95 

Eicecuiive  Dora  Bose 

S6^  00 

S?9  00 

519  95 

70  OOO  Word  Dictionary 

ili  95 

514.95 

510  00 

Prcicticolc  It 

S69.95 

549.95 

544  95 

Print  5hop  IDlsk; 

S44  95 

332  95 

53*  95 

Praciicak 

559.95 

S24  95 

519  95 

Programmers  Reference 

520  95 

SU  95 

S12  50 

Gu.dc 

Programmers  Helper 

S59  95 

539  95 

519  95 

(Disk) 

80  Cofumn  Screen  (Disk) 

S5995 

529  95 

519  95 

Disk  Filer  Ibyflip-N-File) 

S39  95 

514  95 

513  95 

DeJuHe  Tape  Cosselte 

SB9.00 

544  95 

534  95 

Pro  Joy  St.tli 

SI9  95 

512  95 

510.00 

Light  Pen 

S39  95 

514  95 

5  9  94 

Dust  Cover 

S   8,95 

5  6  95 

5   4  60 

Simon  s  Basic 

529  95 

523  95 

SI9  95 

Pilslop  II  Epyx 

S39  95 

514  95 

SI9  95 

Super  Grophics  Eipondei 

S!9  95 

532  95 

419  95 

Musif  Cole  1 

559.95 

539  95 

S3J  95 

Filewriter 

559  95 

529  95 

534  95 

(See  over  100 coupon  items  in  our  cotolog) 

Write  or  call  for 

Sample  SPECIAL  SOFTWARE  COUPON! 


SUPER  AUTO    COM 
DIAL  MODEM   ^4 


(Best  communications  package  in  LISA| 


EXECUTIVE  QUALITY 
PROFESSIONAL  BUSINESS  SOFTWARE 

The  Cadillac  of  Busmeis  Programs 
for  Commodore  64  Computer! 


Item 

Inventory  Monogemert 
Accounts  Receivable 
Accounts  Poyobl'e 
Payroll 
Genero!  Ledger 


Llt> 

579  95 
579  95 
579  95 
579  95 
579  95 


*  Sale 

539  95 
539,95 
539  95 
529  95 

539  95 


Coupon 

534  95 
534  95 
524.95 
524  9S 

S24  95 


*The  S19.95  Software  Purchase  Options 


t  34  Progtom  Bonus  Pack  (tape  or  disk) 

3  Oil  Borrons  Strategy  Boord  Gome 

3  Disk  Drive  Cleoner 

4  HE5  Gomes  (disk) 

5  Pogo  Joe  (tape  or  disk) 


.IS- 
S29  95 
549.95 
529  95 
529  95 
529.95 


5ALE 

n9.9j 

lit. 95 

m.9i 

119.9! 
119.95 


59 


OO 


•  Computer  Learning  Pad  $37.95 

•  New  Voice  Synthesizer  $49.00 

•  12"  Green  or  Amber  Monitor  S79.95 

•  12"  Daisy  Wheel  Printer  S199.00 


SUPER  AUTO  DIAL  MODEM  $59.00 

Ea$y  to  u^e  Ju^t  plug  into  your  Commodore  64 
computer  ond  you  re  reody  to  tronsmil  and  receive 
messages.  Easier  to  use  than  dioling  your  telephone 
push     one     key    otl     your    computer'     Includes 


exclusive    easy    to    use    program    for    up 
loodirig  lo  printer  and  disk  drives 
List  5129.00  SALE  SS9.00. 


and    down 


NEW  COMPUTER  LEARNING  PAD  S37.93 

Makes  other  grophics  lobleis  obsoleie   This  new  TECH 
SKETCH  LEARNING  PAD  ollows  you  10  drav.  on  your 
T.V    or  Monitor  and  then  you  can  print  whatever  you 
draw  on  the  screen  on  your  printers.  FANTASTIC" 
Li5lS79.?5  SALE  537.95. 

NEW  VOICE  SYNTHESIZER  S49.00 

For  Com-64  or  VIC  20  computers  Just  pfug  it  in  ond 
you  can  progrom  words  and  sentences  adjust  volume 
and  pilch  moke  talking  adventure  gomes  sound 
action  gomes  and  customjzeci  talkies''  FOR  OfMLY 
519,95  you  con  odd  TEXT  TO  SPEECH  |ust  type  Q  word 
and  hear  your  computer  tolk  -  ADD  SOUND  TO 
Zofk  SCOTT  ADAMS  AND  AARDVAfiK  ADVENTURE 
GAMES  ft  (Disk  or  tope.; 

12"  GREEN  OR  AMBER  MONITOR  $79.9} 

Your  choice  oi  green  or  amber  screen  monitor  lop 
quality  80  columns  x  'li  lines  eosy  to  read  onti- 
glare!  PLUS  S9.95  for  connecting  cable  Com  64  or 
VIC-20. 

12"  DAISY  WHEEL  PRINTER  $199.00 

"JUKI"  Superb  letter  quality  daisy  wheel  printer    12' 
extra    large    CQrrioge,    up    to    12    CPS    bidtreclionol 
printing,   drop   in  cosselte  ribbon,   Centronics  parollel 
or  RS232  serial  port  built  in!  (Specify) 
List  S299, 00  SALE  S199.00 

CARDCOG+  INTERFACE  $S9.00 

For  Commodore  64  ond  Vic  20  computers.  Lets  you  use 

other  printers  wilh  Centronics  interfaces.  This 
nterfoce  lets  the  printer  act  like  a  Commodore  printer 
ncluding    printing    Ihe    Commodore     graphics    (Do! 

matrix  with  graphic  copobilily  printers}. 

List  S109.00  SALE  )i9.00 

PROTECTO  WARRANTY 

All  Protecto  s  products  carry  a  minimum  90  tjay 
warranty.  Therefore  if  anything  fails  within  90 
days  from  the  date  of  purchase,  you  simply 
send  your  product  to  us  via  United  Parcel 
Service  prepoid.  We  will  IMMEDIATELY  send 
you  0  replacement  at  no  chorge  via  United 
Parcel  Service  prepaid.  This  worronly  proves 
once  again  that  Weiove  Our  Customers 


*  LOWEST  PRICES  •  15  DAY  FREE  TRIAL 

•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL 


PHONE  ORDERS 

8  a.m.      8  p.m.  Weekdays 
9  a.m.  -   12  noon  Saturdoys 


•  90  DAY  FREE  REPLACEMENT  WARRANTY 
•  OVER  500  PROGRAMS  •  FREE  CATALOGS 


Add  SIO.OO  lor  shipping  handling  and  insurance.  Illinois  residents 
pleose  odd  6°,  tox.  Add  S20.00  for  CANADA.  PUERTO.RICO,  HAWAII. 
ALASKA  APOFPO  orcjers.  ConocJion  orders  must  be  in  U.S.  dollars. 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES  EXCEPT  CANADA. 
Enclose  Cashiers  Check.  Money  Order  or  Personal  Check.  Allow  14 
doys  for  delivery.  2  lo  7  days  for  phone  orders.  I  doy  express  mail! 
VISA  -  MASTER  CARD  -     C.O.D.  No  CO.D.  lo  Conada    APO-FPO 


We  Love  Our  Customers 

Box  550,  Barrington.  Illinois  60010 

312/382-5244  to  order 


FANTASTIC  COMPUTER  PRINTER  SALEM! 


10X  COM-STAR 

Tractor     Friction     Printer 


I 

^>^g^ 

|:^. 

"■     ^ 

^ 

^^n 

^ 

ih 

H^nfli^H 

^M3 

Only 


130-150  CPS 


n 


COM-STAR 


List  $499 


•  Lowest  Sale  Price,  Premium  Quality,  Tractor/Friction  Printer  in  the  U.S.A.  (Best  Vatue) 

•  High  Speed  130-150  Characters  Per  Second  •  40.46.  66.  80,  96.  732  tine  spacing 

•  Word  Processing.  Letters  •  Business  forms  •  Labels.  Graphics.  Tables  •  List  Programs 
Fantastic  Graphics  •  Print  Modem  Data  •  The  Most  Important  Accessory  For  Your  Computer 


Premium  Quality 

130-150  CPS  lOX  COM-STAR 

Printer  $199 

10"  carriage,  prints  8i^"xH"  standard 
single  sheet  or  continuous  feed  paper, 
Bi-direct)onai,  impact,  dot  matrix,  ISO- 
ISO  CPS,  9x9  dot  matrix  witti  double 
strike  capability  for  18  x  18  dot  matrix 
(near  letter  qualityK  high  resolution  bit 
image,  underlining,  back  spacing,  true 
lower  descenders  with  super  and 
subscripts,  prints  standard,  italic,  bloclt 
graphics,  and  special  characters.  It 
gives  you  print  quality  and  features 
found  on  printers  costing  twice  as 
much!!  (Centronics  Parallel  Interface) 
(Better  than  Epson  FX80).  List  $499.00. 
Sale  $199.00. 

Premium  Quality  150170  CPS 

151/2X  COM-STAR  Business 

Printer  $319.00 

Has  all  the  features  of  the  lOX  COM- 
STAR PRINTER  plus  IS^i"  carriage  and 
more  powerful  electronics  components  to 
handle  large  ledger  business  forms' 
(Better  than  Epson  FX  100).  List  $599. 
Sale  $319.00. 


■JUKI* 

12"  DAISY  WHEEL 
PRINTER  $199.00 

"JUKI"  Superb  letter  quality  daisy 
wheel  printer,  12"  extra  large  carriage, 
up  to  12CPS  bi-directional  printing, 
drop-in  cassette  ribbon,  (90  day 
warranty)  Centronics  parallel  or  RS232 
serial  port  built  in!  (Specify). 
List  S299.00.  Sale  $199.00. 


■JUKr 

Printer/Typew^riter 
Combination  $279.00 

"JUKI"  Superb  letter  quality,  daisy 
wheel  printer/typewriter  combination. 
Two  machines  in  one  —  just  a  flick  of  the 
switch.  12"  extra  large  carriage, 
typewriter  keyboard,  automatic  margin 
control  and  relocate  key  drop  in  cassette 
ribbon!  (90  day  warranty)  Centronics 
parallel  or  RS232  serial  port  built  in 
(Specify).  ListS399.O0.  Saie$279.00 


OOlympia 


Executive  Letter  Quality  $339.00 
15"  Daisy  Wheel  Printer 

This  is  the  world's  finest  daisy  wheel 
printer.  Fantastic  letter  quality,  up  to  20 
CPS  bi-directional,  will  handle  14.4" 
forms  width!  Has  a  256  character  print 
buffer,  special  print  enhancements,  built 
in  tractor-feed  (Centronics  Parallel  and 
RS232C  Interface)  (90  day  warranty). 
List  $649.00.  Sale  $339.00 


OOlympia 

Printer/Typewriter  Combination  $439.00 

Better  than  IBM  Selectric.  Superb 
computer  printer  combined  with  the 
world's  finest  electronic  typewriter.  Two 
machines  in  one,  just  flick  the  switch  for 
up  to  20  CPS  printing  (300  Words  per 
minute)  on  a  15"  carriage  that  handles 
up  to  14  1/8"  In.  paper.  Drop  In  cassette 
ribbon  —  express  lift  off  correction, 
Centronics  parallel  interface  (90  day 
warranty).  List  $749,00.  Sale $439.00. 


•  15  Day  Free  Trial  —  1  Year  Immediate  Replacement  Warranty 


PARALLEL  INTERFACES 

For  VlC-20  and  COM-64  —  $59.00.  Apple  —  $79.00.  Atari  —  $59.00. 


Add   SM.50  for   shipping,    handling   ond    insurance.    Illinois   residents 
pleose  add  6'^o  tax,  Add  S29.00  (or  CANADA.  PUERTO  RICO.  HAWAII. 
ALASKA.  APO-FPO  orders.  Cooodian  orders  must  be  in  US.  dollars. 
WE  DO  NOT  EXPORT  TO  OTHER  COUNTRIES.  EXCEPT  CANADA. 
Enclose  Cashiers  Check,   Money  Order  or  Personal  Check.  Allow  14 
days  delivery.  2  to  7  days  (or  phone  orders.  1  day  express  moil! 
VISA  —  MASTERCARD   -  C-O.O-  No  C.O.D.  to  Conorfo  or  APO-FPO 


We  Lo've  Our  Customers 

Box  550,  Barrington,  Illinois  60010 

312/382-5244  to  order 


COM-STAR  PLUS+ 
Print  Example: 


^DEF'GH  Z«3KL.I«llsJaRCaRS 

ABCDEFSHZJKLMNOPtaRSTUVWXYZ  1  23'4SA 


uvwxv 

S90 


Sof 'f  wor^ 
Sale 

Programmers  Reference  Guide 


$12.95 


ATARI 

Call  (312)  382-5050  To  Order 


Supe 

Sof -t  wc 

Sale 

All  Software  Is  On  Disk  Unless 
Stated  Otherwise. 


GAMES 


L15T 
S19.9S 
S19.95 
S19.95 
S19.9S 
Si9.95 
S24.95 
S24.95 
S24.95 
S24.9S 
S24.9S 
S24.95 
S24.95 
S24.95 
S24.95 
S24.95 
524.95 
$24.95 
S24.95 
SI9.95 
$19.95 
$39.95 
$19.95 

$19.95 
S24.95 
S29.95 


S29.95 
529.95 
529,95 


ATARI 

A567SIAR  VOYAGER 

A54JiTAR  RAIDERS 

A545  MISSILE  COMMAND  (CART.) 

AS46  GALAX  IAN  (CART.) 

A547  DEFENDER  (CART.) 

A548D1G  DUG  (CART.) 

A549  DONKEY  KONG  (CART  } 

A550ROBOTRON(CART.) 

A57)  POLE  POSITION  (CART.) 

A570  DONKEY  KONG  JR.  (CART.) 

A569  MS.  PAC  MAN  (CART.) 

A595  JOUST  (CART.) 

A555PENGO  (CART.) 

A556  MILLIPEDE  (CART.) 

A557  JUNGLE  HUNT  (CART.) 

A558  MARIO  BROS,  (CART.) 

A559MOON  PATROL  (CART.) 

A560  FINAL  LEGACY  (CART.) 

A561  FOOTBALL  (CART.) 

A562  TENNIS  (CART) 

A563  TRACKS  FIELD  (CART.) 

A564  EASTERN  FRONT  (CART.) 

A565  GALAHAD  S  THE  HOLY  GRAIl 

A566  ADVENTURE  WRITER 
A568SARGON  II 

FIRST  STAR 

A510SPY  VS.  SPY 

A51I  I  LOVE  MY  ALPHABET 

A512  U.S.  ADVENTURE 

IMAGIC 

AblSCHOPPERHUNT 

BRODERBUND 

A51  4  MASK  OF  THE  SUN 

A51  5  OPERATION  WHIRLWIND 

A516SPELUNKER 

A517  LODE  RUNNER 

A5ie  WHISTLERS  BROTHERS 

A501  SERPENTS  STAR 

A502  STEALTH 

EPYX 

A5I9TEMPLEOF  APSHAI 

AS20JUMPMAN 

A521  DRAGON  RIDERS  OF  PERN 

A522  SUMMER  OLYMPIC  GAMES 

A523PIT5TOPII 

A524  BALL  BLAZER 

A525  RESCUE  ON  FRACTULUS 

SSI 

A526  KNIGHTS  OF  THE  DESERT 

A527  FIELD  OF  FIRE 

A528  FORTRESS 

A529  THE  COSMIC  BALANCE 

A530  IMPERIUM  GALACTUM 

A53I  RAILS  WEST 

A532  TIGERS  IN  THE  SNOW 

A533  50  MISSION  CRUSH 

AS90  BROADSIDES 

A59I  COMPUTER  QUARTERBACK 

A592  COMPUTER  AMBUSH 

A593  COMPUTER  BASEBALL 

A594QUESTRON 

MUSE 

A583CASUEWOLFENSTEIN  $39.95 

A584  BEYOND  CASTLE  WOLFENSTEIN 

$39.95 

MiCROPROSE 

A581  SOLO  FLIGHT  $37.95 

A582  HELLCAT  ACE  $29.95 

SyNAPSE 

A534  ENCOUNTER  $19.95 

A535  BLUE  MAX  2001  $29.95 

A536  QUASIMODO   AIR  SUPPORT      $34.95 
A537N.Y.C.   ELECTRICIAN  $34,95 

A538  RAINBOW  WALKER,  COUNTDOWN 

$24.95 
A539  FORT  APOCALYPSE  $34.95 

A540  BLUE  MAX  $34.95 


SALE 
SI4.95 
SI4,95 
$14  95 
S14.95 
$14,95 
S)6  95 
S)6  95 
$1695 
$16  95 
$16.95 
$16.95 
S16.95 
$16,95 
$16.95 
$16,95 
$16.95 
$1695 
$16,95 
$14,95 
$14,95 
$29,95 
$14,95 

SI  4.95 
519.95 
$16,95 

S20.95 
$24.95 
$24,95 


$19.95     $14.95 


$39,95 
$39.95 
$22.95 
534.95 
$29,95 
$39.95 
$29.95 


539.95 
$39.95 
539.95 
$39.95 
539.95 
$39.95 
$39.95 


539.95 
539.95 
534.95 
$39.95 
539.95 
$39.95 
$39.95 
$39.95 
$39.95 
$39.95 
$59.95 
$39.95 
$49.95 


$24.95 
$24.95 
$18.95 
$20.95 
S18.95 
$24.95 
$18.95 


$24.95 
$24.95 
$24.95 
$24.95 
$24.95 
$24.95 
$24.95 


$24.95 
$24.95 
$22.95 
$24.95 
$24.95 
$24.95 
$24.95 
$24.95 
$24.95 
$24.95 
$34.95 
$24.95 
$27.95 


$13.95 
$22.95 

$22.95 
$18.95 

$14.95 
$19.95 
$19.95 
$19.95 

$19.95 
$20.95 
$20,95 


Add    HM    Iqi    Nhipp.n^      har.d 
pJ*<a>.t  odd  b*.  >□.>    Add  S6  00 
AiAE-KA    APO  *PU  orcle.5    Car- 
m  DO  NOT  tOKOfil  lOOTHtH 

ng    otid    .nsuiau*      III, no. ^    /p^idp'^rs 
□  r  CANADA    PLiHTO  RICO    HAWAII 
admn  order",  muM  b**  m  U  ^    dollan 
COJNIHfLiEXCtPT  CANADA 

4  Chefk    Mot^^f  Oi^^r  o'  P*(^onol  Ch^ik 

y     7lO  i*  dflr^  lot  phC^^Ordtrri,     1  day  0i  pi«>f  S 

VtSA        VASrtfiCARD       COD 

Allow   ia 

moil' 

APO  fPO 

ACCESS 

LIST 

SALE 

A589  BEACHHEAD 

$39,95 

520,95 

AVALON  HILL 

A572TELENGARD 

$28.00 

$19.95 

A573T.G.I.F. 

$25.00 

516.95 

A574  FLYING  ACE 

$31.00 

S22.95 

A575  MIDWAY  CAMPAIGN 

$21.00 

$12.95 

A576B-I  NUCLEAR  BOMBER 

$21,00 

518.95 

A577  LEGtONAIRE 

$30.00 

$24.95 

A5/8T.A.C. 

$40.00 

S25.95 

A579  MARKET  FORCES 

$21,00 

$14.95 

A580  PANZER  JAGD 

530.00 

$21.95 

A504  GALAXY 

$25.00 

516.95 

A505  ANDROMEDA  CONQUEST 

S23.00 

$16.95 

A506  COMPUTER  STOCKS  AND  BONDS 

$25.00 

518.95 

COSMI 

A507  FORBIDDEN  FORREST  (TAPE/DISK) 

SI6.95 

512,95 

A508  AZTEC  CHALLENGE  (TAPE/DISK) 

$16.95 

$12.95 

A509  CAVERNS  OF  KHAFKA  (TAPE 

.'DISK) 

$16.95 

$12.95 

DATASOFT 

A585  BRUCE  LEE 

$39.95 

$20.95 

A586PACMAN 

$29.95 

$18.95 

A587CONAN 

$39.95 

522.95 

A5BBMR.  DO 

$29.95 

524.95 

A096 
A007 
A093 
A0I5 
A0I8 
A025 
A022 
A442 
AI05 
A106 

AI07 


ACCESSORIES  & 
PROGRAMMING  AIDS 

SURGE  PROTECTOR  6  PLUG       549.95  $29,95 

DATA  CASSETTE  RECORDER       591.00  $44.95 

MONITORCABLE                           $14.95  5  9.95 

BOX.  10  ECONOMY  DISKS          $29.95  $12.95 

BOX,  10  FUJI  FLOPPY  DISKS       $39,95  $14,95 

SO  FLOPPY  DISK  FILE  BOX           539,95  $14,95 

FLOPPY  DISK  CLEANER                $29,95  $19,95 

ATARI  GRAPHICS  TABLET           $99.00  $49,95 

BASIC  TUTORIAL  (BOOK)            516,95  $12,95 
ADVANCED  BASIC  TUTORIAL  (BOOK) 

$16-95  59,95 
PROGRAMMERS  REFERENCE  GUIDE  (BOOK) 

$24.95  $12,95 


BUSINESS 


ATARI 

A201  ATARI  WRITER  {CART,] 

$49,95 

$39,95 

A202  PROOFREADER 

$19,95 

$16.95 

A203V1SICALC 

$39,95 

S29.95 

A204  HOME  FILE  MANAGER 

524,95 

$19.95 

A215TIMEWISE 

$19,95 

$14.95 

CODEWRITER 

A206  FILE  WRITER 

529,95 

$24,95 

A207  REPORT  WRITER 

529,95 

$24,95 

A208  MENU  WRITER 

$29,95 

$24,95 

A209  FAMILY  FINANCE 

$29,95 

$19,95 

A210  HOME  INTEGRATOR 

$24,95 

$19,95 

A21 1  SMALL  BUSINESS  INVENTORY 

519,95 

$12,95 

A212  SALESMAN'S  EXPENSE 

$19.95 

$12,95 

A213  ACCOUNTS  RECEIVABLE  S  PAYABLE 

$19,95 

$12,95 

A214  RETAIL  INVOICE 

$19,95 

$12.95 

PEACHTREE 

A216  GENERAL  LEDGER 

$99,00 

$49,00 

A217  ACCOUNTS  RECEIVABLE 

$99,00 

$49,00 

A2ie  ACCOUNTS  PAYABLE 

$99,00 

549,00 

EDUCATION 


FISHER  PRICE 

A444  LINKING  LOGIC  (CART,) 
A445  DANCE  FANTASY  (CART,) 
A446  MEMORY  MANOR  (CART,) 
A447  LOGIC  LEVELS  (CART,) 

SCHOLASTIC 

A407  BANNER  CATCH 
A408  SQUARE  PAIRS 
A409SPELLAKAZAM 
A410  SPELL  DIVER 
A411  AGENT  U,S.A. 


$24,95 

$16,95 

$24,95 

$16,95 

$24,95 

$16,95 

$24,95 

$16,95 

$29,95 

522,95 

$29,95 

522,95 

$39,95 

$24,95 

$29,95 

522,95 

$29.95 

$22,95 

ATARI  LIST 

A316  LOGO  (CART,)  $49,95 

A3I8  ASSEMBLER  'EDITOR  (CART,)     $29.95 
A31  5  PILOT  (CART.)  $39,95 

A3I  9  MACRO  ASSEMBLER  (CART,)     529,95 
A420  ATARI  MUSIC  I  529,95 

A421  ATARI  MUSIC  II  $29,95 

A422  INTRO  TO  BASIC  I  (TAPE)  $19.95 

A423  INTRO  TO  BASIC  II  (TAPE)  $19,95 

A424  INTRO  TO  BASIC  III  (TAPE)         $19,95 
A433  TYPE  ATTACK  (CART,)  $19.95 

A436  SAT  SAMPLE  TESTS  $34,95 

A437  SAT  MATH  MODULE  $39.95 

A435  SAT  VERBAL  MODULE  $39,95 

A434  THE  LEARNING  PHONE  (CART,) 

$24.95 
A438  TOUCH  TYPING  (TAPE)  $19.95 

A439  JUGGLES  RAINBOW  $19,95 

A440  JUGGLES  HOUSE  519,95 

A443  PAINT  $24,95 

A425  ATARI  LAB  STARTER  SET  (CART,) 

$69.95 
A426  ATARI  LAB  LIGHT  MODULE  (CART.) 

$49,95 
A427  SCRAM  $24,95 

A428  SKYWRITER  (CART,)  $19,95 

A429  CONVERSATIONAL  FRENCH  (TAPE) 

519,95 
A430  CONVERSATIONAL  SPANISH  (TAPE) 

$19,95 
A431  MY  FIRST  ALPHABET  $19.95 

A432  SPEED  READING  (TAPE)  $24,95 

DESIGNWARE 

A401  CRYPTO  CUBE 
A402  5PELLAGRAPH 
A403  MATH  MAZE 
A404SPELLICOPTER 
A405  CREATURE  CREATOR 
A406TRAPA-ZOID 


$39.95 
539,95 
539.95 
$39.95 
539.95 
$39,95 

$39,95 
$39,95 
539,95 
$39,95 
$39,95 
539,95 


SALE 

539,95 

519,95 

529,95 

519,95 

$19,95 

$19,95 

$14,95 

$14,95 

$14,95 

$16-95 

$17,95 

$29,95 

$29,95 

$19.95 
$14.95 
$16.95 
$16.95 
$19.95 

$49.95 

$39.95 
$19,95 
516.95 

$16.95 

$16.95 
$16,95 
$19,95 


524,95 
$24,95 
524,95 
$24,95 
$18,95 
524,95 

$24,95 
$24,95 
$24,95 
$24,95 
$24,95 
$24,95 


WEEKLY  READER 

A412STICKYBEARBOP 
A413  STICKYBEAR  NUMBERS 
A414STICKYBEAR  BA5KETBOUNCE 
A41  5  STICKYBEAR  OPPOSITES 
A416  STICKYBEAR  ABC 
A417  STICKYBEAR  SHAPES 

AMERICAN  EDUCATIONAL  COMPUTER 

A41  8  BIOLOGY  FACTS  $24,95     $16.95 

A41  9  ELEMENTARY  SCIENCE  FACTS   524.95     $16.95 
A459  VOCABULARY  WORD  BUILDER 

$24,95  516,95 
A460  GRAMMAR  WORD  USE  SKILLS  $24,95  $15,95 
A461  WORD  GEOGRAPHY  FACTS  $24,95  $16,95 
A462  SPANISH  VOCABULARY  SKILLS 

524,95 
A463  FRENCH  VOCABULARY  SKILLS  524.95 


516.95 
516.95 
516.95 
516.95 
516.95 
516.95 
534.95 

$16.95 

$16.95 


A464  WORLD  HISTORY  FACTS  $24.95 

A465  U.S.  HISTORY  FACTS  $24.95 

A466  U.S.  GEOGRAPHY  FACTS  $24.95 

A467  U.S.  GOVERNMENT  FACTS  $24.95 
A468AEC  SPELLING  2-8  $99,95 

A4S0  READING  COMPREHENSION  SKILLS 

524,95 
A485  WORDS  IN  READING  VOCABULARY 

524,95 

SPINNAKER 

A448KINDERCOMP 

A449  PACEMAKER 

A4S0  KIDS  ON  KEYS 

A451  GRANDMA'S  HOUSE 

A452KIDWRITER 

A453  FRACTION  FEVER  (CART) 

A454  IN  SEARCH  OF  THE  MOST 

A455  TRAINS 
A456  ALPHABET  ZOO 
A457  AEROBICS 
A458  MATH  BUSTERS 


COMPUTER  DIRECT 

Wr  Lox-f  Our  Ciistofnfrs 
Box  1001,  Barrington,  III,  60010 

312/382-5050  to  order 


$20,95 

$16.95 

$20,95 

516.95 

$20,95 

$16.95 

$20,95 

$16.95 

$26,95 

522.95 

$24.95 

518.95 

AMAZING  THING 

J26.95 

522.95 

526.95 

522.95 

520.95 

516.95 

534,95 

$24,95 

526.95 

$22.95 

JjL  Lowest  Price  In  The  USA  ! 

atarI  Computer  System  Sale 

•   Students   •   Word  Processing   •    Home   *   Business 


$449 

LOOK  AT  ALL  YOU  GET  FOR  ONLY  ^"W^  ^ 

SYSTEM  PRICE 

®  Atari  800XL  64K  Computer 
©Atari  1050  1  27K  Disk  Drive 
©Atari  1  027  Letter  Quality  20  CPS  Printer 

Atari  Writer  Word  Processer 

Atari  BASIC  Tutorial  Manual 


LIST  PRICE 

$179.00 

299.00 

299.00 

59.95 

16.95 


INDIVIDUAL 

SALE  PRICE 

$109'"' 

189*"» 
199°° 

39" 

12" 


SAVE  $100 

All  5  ONLY 

$44900 

SYSTEM 
SALE  PRICE 


All  connecting  cobles  S  T.V.  interface  include 
Monitors  sold  separetly. 


TOTALS 


$852.90     $549.90 


IVIONITOR  OPTIONS:  List  Sale 

12"  Hi  Resolution  Green  or  Amber  Screen         S199.00  99.00 

13"  HI  Resolution  Color  S399.00  195.00 


Add  S9.95for 

Connection  Cobles 
ondSlOfor  UPS 


15  DAY  FREE  TRIAL.  We  give  you  15  doys  to  try  out  this  ATARI  COMPUTER  SYSTEM!  !  H  it  doesn't  meet  your  expectations,  just  send  it 
bock  to  us  prepaid  and  we  will  refund  your  purchiose  price!  ! 

90  DAY  IMMEDIATE  REPLACEMENT  WARRANTY.  If  any  of  tfie  ATARI  COMPUTER  SYSTEM  equipment  or  programs  foil  due  to  faulty 
workmonstiip  or  material  within  90  days  of  purchase  we  will  replace  it  IMMEDIATELY  with  no  service  charge !  ! 


Best  Prices  *  Over  1000  Programs  and  500  Accessories  Available  *  Best  Service 
*  One  Doy  Express  Mail  *  Programming  Knowledge  •  Technical  Support 


Add  $25.00  for  shipping  and  handling!! 

Enclose  Cashiers  Check.  Money  Order  or  Personal  Check. 
Allow  14  doys  for  delivery.  2  to  7  days  for  phone  orders.  I  doy 
express  moil!  We  accept  Visa  and  MasterCord.  We  ship 
C.O.O.  to  continental  U.S.  addresses  only. 


COMPUTER  DIRECT 

We  Love  Our  Customers 
Box  1001 ,  Barrington,  111.  60010 

312/382-5050  to  order 


Super-Text,  from  Muse  Software,  is 
a  word  processing  program  that  can  sat- 
isfy your  writing  needs  even  as  they 
grow  and  become  more  sophisticated. 
Billed  as  a  "professional"  word  proces- 
sor, Super-Text  was  first  released  for  the 
Apple  computer  more  than  two  years 
ago  and  is  now  available  for  the  Com- 
modore 64,  Atari,  and  IBM.  The  Com- 
modore 64  version  produces  an  80- 
column  display  without  any  additional 
hardware. 

The  package  consists  of  two  identi- 
cal program  disks  {a  considerate  policy), 
a  comprehensive  manual,  and  a  quick 
reference  card.  The  Atari  program  disk 
contains  a  special  version  of  the  Atari 
Disk  Operating  System  (DOS)  which 
permits  access  to  all  DOS  commands 
from  within  the  program.  The  disk  also 
contains  some  predefined  files  which 
allow  you  to  print  your  text  on  various 
printers — including  those  from  Epson, 
Okidata,  Atari,  and  NEC — and  generic 
parallel  and  serial  files  so  you  can  cus- 
tomize output  to  any  other  printer. 

Special  Printing 

In  addition  to  all  the  usual  printing  pa- 
rameters, such  as  margin  widths,  page 
lengths,  and  lines  per  page,  Super-Text 
also   lets   you   define   control   key  se- 


quences for  special  printer  features.  A 
printer  sequence  code  can  be  assigned  to 
any  of  ten  characters.  You  can  then  em- 
bed these  nonprinting  codes  within  your 
text  to  select  such  functions  as  super- 
scripting,  subscripting,  ribbon  colors, 
and  alternate  type  styles.  The  manual 
contains  several  examples  of  how  to  set 
up  your  printer  for  these  kinds  of 
features. 

In  use,  Super-Text  is  very  similar  to 
other  word  processors.  To  type,  you  en- 
ter a  special  "add  mode."  Word-wrapping 
and  vertical-scrolling  are  automatic.  To 
save  text,  you  must  exit  the  add  mode 
and  specify  a  filename;  Super-Text  adds 
the  extender  .TXT,  Atari  Super-Text  files 
are  in  ASCII,  so  they  can  be  read  by 
other  word  processors  or  spelling- 
checker  programs.  Program  files  in 
ASCII  format  are  also  readable,  as  long 
as  they  have  the  .TXT  extender. 

To  load  a  file,  Super-Text  first  dis- 
plays a  numbered  file  directory  of  the 
disk.  You  can  select  a  file  by  either  its 
filename  or  number.  This  catalog  screen 
also  displays  the  name  of  the  file  in 
memory  (if  any),  the  current  drive  num- 
ber, and  the  number  of  free  pages  re- 
maining in  memory.  (On  a  48K  Atari, 
the  maximum  file  size  is  15K — about 
15,000  characters.) 


COMPARE  LINE  CONDITIONERS! 
You'U  Choose  Tripp  Lite. 

Automatically  adjusts  varying  input  voltages  up  or  down  to  protect 
computers  from  brown-outs  and  high  voltage  surges. 

•  Maintains  load  voltage  120V 
AC  (±5%)  from  96V  AC  to 
138V  AC  input  range. 

•  Built    in    spike    and    R.F.I. 

filters. 

•  98%  efficient.  Load  regula- 
tion is  2%  for  no  load  to  full 
load. 

•  Indicator  light  for  monitoring 
high  and  low  voltage  condi- 
tions. 

These  stepped  transformer  systems  are  higher  in  efficiency,  lower  in 
wave  form  distortion,  and  lower  in  cost  than  C.V.T.'s  (constant  voltage 
transformers). 

Retail  Prices:  $119.00      (600  watt) 
$219.00      (1200  watt) 
$299.00      (1800  watt) 


TRIPP 


LITE 


Dealers  and  Distributorships  Available 

Call  1-312-329-1777 

50O  North  Orleans  St.,  Chicago,  IL  60610 


Est.  1922 


Super-Text  contains  a  large  number 
of  flexible  features.  For  example,  the 
typical  search-and-replace  works  either 
individually  or  globally,  but  also  lets 
you  specify  wild  cards,  search  for  multi- 
ple strings,  and  search  through  any 
number  of  linked  files  on  disk.  The  pro- 
gram even  tells  you  how  many  occur- 
rences were  replaced.  This  lets  you 
estimate  the  number  of  words  in  your 
document  by  globally  searching  for  sin- 
gle spaces. 

Programmable  Keys 

Another  very  useful  feature  is  the  ability 
to  assign  up  to  30  characters  to  a  single 
key.  For  instance,  to  write  this  review,  I 
defined  the  string  "Super-Text"  as  a  pro- 
grammable key.  A  single  keypress  then 
saved  me  from  typing  the  phrase  each 
time.  This  feature  can  be  toggled  on  or 
off. 

We  can't  list  all  the  many  features 
of  Super-Text  here  because  it's  such  a 
powerful  program.  It  offers  block  opera- 
tions, onscreen  formatting  and  print  pre- 
viewing, soft  and  hard  tab  stops,  headers, 
footers,  auto  page  numbering,  para- 
graph identadon,  centering,  underlin- 
ing, and  much  more. 

Super-Text  is  easy  to  use,  has  excel- 
lent documentation  with  numerous  ex- 
amples, and  contains  just  about  all  the 
features  a  novice  or  serious  writer  might 
need, 

I  cannot  think  of  any  serious  faults 
or  omissions  in  Super-Text.  If  you  are 
looking  for  your  first  word  processor  or 
want  to  upgrade  to  one  with  more  horse- 
po\ver,  Super-Text  is  definitely  worth 
considering. 

Super-Text 

Muse  Software 

347  North  Charles  Street 

Baltimore,  MD  21201 

$79.95 


This  Publication 

is  available  in  Microform. 

University  Microfilms 
International 

Please  send  additional  infomiation 
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War  In  Russia 


Neil  Randall 

Requirements:  Atari  400/800,  XI,  or  XE 
with  at  least  48K  RAM  and  a  disk  drive;  or 
an  Apple  Il-series  computer  with  at  least 
48K  RAM  and  a  disk  drive  (the  Apple  11  + 
requires  Applesoft  ROM). 


The  most  important  thing  that  can  be 
said  of  a  war  game,  whether  it  is  simu- 
lated on  a  board  or  on  a  computer,  is  that 
it  "feeis  right."  For  a  war  game  to  feel 
right,  it  must  reflect  the  historical  condi- 
tions and  the  scope  of  the  battle  it  simu- 
lates, and  it  must  make  the  player 
understand  the  difficulties  encountered 
by  the  actual  commanders  as  they  made 
their  decisions.  Computerized  war 
games  have  an  inherent  advantage  over 
board  games  in  this  respect  because  of 
their  ability  to  handle  the  nuts-and-bolts 
details  of  supply,  equipment  repair,  and 
so  forth.  Unfortunately,  computerized 
war  games  seem  to  rarely  exploit  this 
advantage.  But  War  in  Russia,  an  ad- 
vanced-level game  from  Strategic  Simu- 
lations, does  much  to  correct  that 
problem. 

Played  on  a  scrolling  hex-map  of 
the  Soviet  Union,  War  in  Russia  is  a  one- 
or  two-player  game  dealing  with  the 
German  invasion  of  1941-45.  War  in 
Russia  includes  three  scenarios  (along 
with  a  campaign  game)  which  cover  the 
entire  war  and  take  many  hours  to  play. 
Maneuverable  units  are  battle  groups  of 
up  to  six  divisions,  with  the  distinction 
between  tank  and  infantry  formations. 
This  allows  you  to  reenact  the  break- 
through/encirclement tactics  which 
characterized  the  blitzkriegs  of  World 
War  II. 

Several  features  contribute  to  a  de- 
tailed but  surprisingly  easy-to-play  sys- 
tem. The  Reinforcement/Experience/ 
Fatigue  system  provides  the  feel  of  com- 
bat on  a  divisional  level,  yet  is  handled 
simply.  Prolonged  combat  increases  the 
fatigue  of  a  unit  until  it  stops  to  rest.  At 
the  same  time,  units  gain  experience 
during  combat,  increasing  their  battle 
efficiency.  When  you  reinforce  a  deplet- 
ed unit,  though,  its  experience  level 
drops  to  reflect  the  addition  of  the 
"green"  troops.  Learning  to  exert  some 
control  over  these  processes  gives  you 
the  feel  of  making  real  command  deci- 
sions. If  you  don't  make  the  proper  ad- 
justments, your  offensive  quickly  grinds 
to  a  halt. 

The  Production  Factor 

Some  of  the  fascinating  aspects  of  War  in 
Russia  are  watching  the  combat  effec- 
tiveness of  your  units  wax  and  wane, 


resting  your  panzer  divisions  just  long 
enough  to  prepare  them  for  the  next 
battle,  and  conserving  your  units' 
strength  during  battles  in  the  winter. 
The  German  player,  as  happened  his- 
torically, watches  initial  successes 
stopped  by  the  coming  of  the  first  win- 
ter, while  the  Russian  player  must  build 
an  effective  defense  using  weak  and  in- 
experienced troops.  Both  players  must 
plan  well  ahead  to  keep  their  units  fresh 
and  at  the  highest  possible  strength  and 
effectiveness.  For  both  it  is  a  great 
challenge. 

Production  is  a  major  facet  of  the 
game,  just  as  it  was  in  World  War  11. 
Each  nation  may  use  its  production  ca- 
pacity to  build  artillery,  vehicle,  or  air- 
craft factories,  or  divert  some  capacity  to 
increase  the  overall  production  level  of 
the  country.  These  economic  decisions 
are  difficult  because  their  effects  will  not 
be  apparent  for  months  to  come,  and 
because  they  have  a  strong  impact  on 
strategy.  This  feature  is  quite  easy  to 


use,  and  is  another  indication  of  the 
game's  concern  with  the  war  as  a  whole. 

War  in  Russia  provides  as  accurate  a 
model  of  the  Russo-German  campaign 
as  any  game  I've  seen,  on  board  or  on 
computer.  Its  duration  and  the  size  of  its 
map  lend  a  sense  of  the  war's  scope, 
while  the  production  and  combat- 
effectiveness  systems  provide  you  with 
the  ability  to  make  major  decisions 
which  change  the  course  of  the  game. 

Anyone  who  enjoys  a  solid  analyti- 
cal challenge  will  find  hours  of  enjoy- 
ment here,  and  war-gamers  should 
consider  War  in  Russia  a  must.  It  oper- 
ates not  only  on  the  operational  level  of 
military  command,  but  also  in  the 
realms  of  strategic  and  economic  policy. 
And  above  all,  it  feels  right. 

War  in  Russia 
Strategic  Simulations  Inc. 
883  Stierlin  Road 
Building  A200 
Mountain  View,  CA  94043 
$79.95 


MICROSHARE 


PET/CBM  MULTI  USER  DISK  SYSTEM 


.  ALLOWS  UP  TO  SIXTEEN  USERS  TO  SHARE  DISK  DRIVES 
AND/OR  PRIJ^TERS 

■  WORKS  WITH  ALL  P^/  CSM  EQUIPMENT 

•  lOO'-i  HARDWARE  INTERFACED 

•  NOALTeflATlONSTOSOnWAREOR  SPECIAL  SOFTVWARE  RE 
QUIRED 

•  SOFTWARE  THANSPAREMT  —  WORKS  WFlH  ALL  PET/CBM 
SOFTWARE 

•  LANGUAGE  TRANSPARENT  —  WORKS  IM  A^^V  LANGUAGE 

■  NO  SPECIAL  COMMANDS  USED 

•  PROTECTS  AGAINST  SVSTEM  LOCKUP 


COMMODORE  64  MULTI  USER  DISK  SYSTEM 

•  ALLOWS  UP  TO  EIGHT  USERS  TO  SHARE  DISK  DRIVES 
AND/OR  PRINTERS 

-  WORKS  WITH  ALL64/VIC  EQUIPMENT 

-  BUILT  IN  IEEE  ANfl  H/VIC  SERIAL  PORTS 
(ViORKS  WJTH  ALL  IEEE  DEVICES) 

-  100"':  HAftDWARE  IHTERFaCED 

-  NO  ALTERATIONS  TO  SOFTV/ARE  OR  SPECtAL 
SOFTWARE  REQUJRED  -  SOFTWARE  TRANSPARENT 

'  NO  SPECIAL  COMMANDS  USED 

•  BUILT  IN  16K  PRINT  BUFFER 

•  DISK  DRIVE  PRIORITY 


GREATER  PRODUCTIVITY  &  LOWER  COST 
FOR  BUSINESS  AND  EDUCATIONAL  USE 


40  TO  8D  COLUMN  CONVERSION 

■  EXTERNALLY  SWITCHABLE  FROM  40 TO  80  COLUMNS 

•  EXTERNALLY  SWITCHABLE  FROM  60  TO  40  COLUMNS 

■  CONVERSIONS  FOR  BOTH  A022i  AND  OffiH'S 

•  100*0  SOFTiVARE  COWPATIBIUTV  IN  EITHER  MODE 

-  HARDWARE  (NOT  SOFTWARE)  MODIFICATION 

•  ALL  KEYS  FROW  8032  EMULATED  ON  4032 

-  SPECIAL  FUNCTION  KEVS 


MICROSHARE  64K  PRINT  BUFFER 

•  LOW  COST 

"  REDUCES  LONG  WAJTS  -  SAVES  TiME 

•  ALLOWS  YOU  TO  PPl  NT  AND  PROCESS  SIMULTANEOUSLY 
«  IEEE  INPUT  —  3EEE  OR  CENTRONICS  PARALLEL  QLiTPUT 

•  WORKS  WITH  ALL  PET/CBM  SOFTWARE 
-  NO  INSTALLATION  REQUIRED 

•  ELIMINATES  THE   FRUSTRATION   OF  WATING   FOR  YOUR 
PRINTER 


COI^MODQ^E  M   ?i.T.  ANDCBMDREALL.  TRJLQEMRRItSClF^^^CMMdDonE  HUSHvE^UMCHIHES  lt<C 


DEALER  INQUIRIES  INVITED. 


MANUFACTURED  BY: 
COMSPEC  COMMUNICATIONS  INC. 
153  BRIDGELAND  AVE..  UNITS, 
TORONTO.  ONTARIO  M6A  2Y6 
(416)78r-0617 
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Raid  On  Bungeling  Bay 


James  V.  Trunzo 

Requirements:  Commodore  64,   a  disk 
drive,  and  a  joystick. 


Home  arcade  games  face  a  tough  fight  in 
today's  software  wars.  After  two  years 
of  being  saturated  with  a  variety  of 
shoot-em-ups  and  maze  games,  a  more 
sophisticated — and  somewhat  jaded — 
game  player  has  emerged.  And  that 
player  is  a  difficult  customer  to  satisfy. 
But  Raid  on  Bungeling  Bay  possesses  all 
the  virtues  necessary  to  appease  the  de- 
manding gamer. 

The  theme  is  simple.  The  Bungeling 
Empire  is  preparing  the  ultimate  weap- 
on of  war  for  conquering  the  world.  Its 
six  war  factories,  each  located  on  an 
industrialized  island,  are  preparing  for 
the  invasion.  Only  you,  a  highly  skilled 
helicraft  pilot,  have  a  chance  to  prevent 
the  unthinkable.  You  must  bomb  the 
war  factories  and  destroy  the  Bungeling 
war  machine. 

But  your  mission  is  about  the  only 
thing  in  Raid  on  Bungeling  Bay  that  is 


ordinary.  From  the  moment  your  highly 
mobile,  heavily  armed  helicraft  takes  off 
from  its  aircraft  carrier,  there's  enough 
action  to  please  even  the  hardest-core 
arcade  addict.  Flying  over  beautifully 
rendered,  360-degree  scrolling  screens, 
you  attack  the  Bungeling  factories.  They 
are  guarded  (of  course)  by  tanks,  boats, 
fighter  planes,  bombers,  and  radar.  In 
addition,  somewhere  among  the  islands, 
the  Bungelings  are  building  a  battleship 
complete  with  heat-seeking  missiles 
that,  if  launched,  are  sure  to  spell  your 
doom, 

Is  it  necessary  to  destroy  everything 
or  just  the  factories?  Everything!  All  ele- 
ments have  their  purpose  in  this  game. 
Radar,  for  example,  helps  enemy  planes 
locate  your  position  and  attack.  Tanks 
and  artillery  defend  the  factories.  Boats 
carry  supplies  to  help  rebuild  what  you 
have  destroyed. 

The  graphics  are  amazingly  de- 
tailed. Smoke  pours  from  the  stacks  atop 
the  factories,  helicraft  blades  whirl, 
heat-seeking  missiles  are  propelled  on 


shafts  of  flame,  and  radar  installations 
explode  like  fireworks.  If  you're  skilled 
enough  to  complete  your  mission  (1  nev- 
er was),  you  are  rewarded  with  more 
graphics — a  hero's  welcome  in  the  form 
of  a  victory  parade  and  a  newspaper 
account  of  your  raid. 

Learning  to  control  your  helicraft 
takes  some  practice,  as  it  is  extremely 
sensitive  and  maneuverable.  You  are 
given  five  helicrafts  at  the  beginning  of 
the  game.  Each  craft  can  absorb  100 
points  in  damage  before  being  de- 
stroyed, and  the  craft  can  return  at  any 
time  to  its  carrier  for  a  new  bomb  load 
and  repairs — that  is,  if  the  carrier  isn't 
under  attack.  Didn't  I  mention  that  pos- 
sibility before?  Well,  it  doesn't  matter. 
You'll  find  out  about  this  and  other  sur- 
prises when  you  play  Raid  on  Bungeling 
Bay  yourself. 

Raid  on  Bungeling  Bay 

Brederbund  Software  Inc. 

17  Paul  Drive 

San  Rafael  CA  94903 

$29.95 


Sundog:  Frozen  Legacy 


James  V.  Trunzo 


Requirements:  Apple  il-series  computer 
with  at  least  64K  RAM,  a  disk  drive,  and  a 
two-button  joystick. 


First,  take  equal  portions  of  Star  Wars 
and  Star  Trek,  mix  in  a  dash  of  mystery 
and  the  unknown  a  la  Infocom's  Planet- 
fail,  and  add  just  a  hint  of  arcade  action. 
Next,  pour  these  ingredients  onto  a  S'A- 
inch  floppy.  Finally,  boot  the  disk  as 
often  as  you  like,  and  enjoy  for  months 
one  of  the  most  entertaining  and  absorb- 
ing role-playing  games  on  the  market 
today, 

Sundog:  Frozen  Legacy  is  a  refresh- 
ingly different,  graphics -oriented  space 
game.  It  seems  simple  enough  at  first. 
You  have  inherited  a  serviceable  but 
rundown  one-man  star  freighter  named 
the  Sundog  from  a  little-known  uncle 
who  has  died  (mysteriously).  You  have 
also  inherited  his  obligation:  to  help 
build  a  colony  for  a  religious  group.  You 
must  establish  the  colony  somewhere 
on  the  planet  Jondd;  find,  buy,  and  de- 
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liver  all  goods  needed  for  construction; 
and  locate  and  deliver  cryogenically  pre- 
served colonists  who  are  being  kept  in 
warehouses  in  various  cities  somewhere 
within  the  Drahew  Region. 

But  to  complicate  matters,  you  have 
no  knowledge  of  trading,  little  knowl- 
edge of  piloting  the  spacecraft,  and  the 
Drahew  Region  is  huge.  The  designers  of 
Sundog  were  ambitious,  to  say  the  least. 
The  Drahew  Region  consists  of  12  star 
systems  with  18  inhabited  planets — and 
those  18  planets  are  dotted  with  more 
than  900  populated  cities. 

Perhaps  the  most  innovative  aspect 
of  Sundog  is  its  liberal  use  of  screen 
windows.  The  graphics  range  from  ex- 
cellent to  adequate  depending  on  which 
screen  is  in  play  (pilotage,  tactical,  on- 
land  travel,  etc.),  but  the  windowing 
makes  this  program  truly  enjoyable  to 
play. 

Another  nicety  in  Sundog  is  the  vari- 
ety of  responses  and  interplay  among 
the  various  people  you  meet.  Bartenders 
can   be   very   friendly   when   you   are 


spending  money,  but  curt  when  they 
feel  you  are  wasting  their  time.  Mer- 
chants (and  even  local  toughs)  can  be 
bargained  with,  threatened,  and  so  on, 
and  each  approach  produces  different 
results.  This  brings  a  feeling  of  individ- 
uality to  your  encounters  and  adds  flesh 
to  the  body  of  the  game. 

Sundog  allows  you  to  save  up  to 
eight  games  on  a  disk  and  displays  the 
status  of  each  game  (suspended,  in  play, 
or  completed).  You  may,  of  course,  de- 
lete entire  games  from  the  disk  to  begin 
new  adventures.  Written  in  Apple  Pascal 
1.1,  the  program  handles  its  many  so- 
phisticated features  quickly  and  reliably, 
Sundog  is  a  game  that  can  be  played  over 
and  over  again,  even  after  the  initial 
tasks  have  been  solved. 

Sundog:  Frozen  Legacy 

FTL  Games 

7907  Ostrow,  Suite  F 

San  Diego.  CA  92111 

$49.95 


Enhancements  To  BASIC  For  Atari 


Tom  R.  Halfhill,  Editor 

Requirements:  Atari  400/800  with  48K 
RAM,  a  disk  drive,  and  Atari  BASIC  car- 
tridge; or  a  1200XL  with  a  disk  drive  and 
Atari  BASIC  cartridge;  or  a  600XL/800XL 
with  64K  RAM  and  a  disk  drive. 


Enhancements  to  BASIC  is  an  impressive 
utility  that  provides  more  than  40  new 
commands  for  BASIC  programming.  It 
isn't  an  "extended  BASIC" — that  is,  it 
doesn't  add  any  special  keywords  for 
inclusion  in  your  programs.  Rather,  it's  a 
tool  kit  utility  that  makes  programming 
and  debugging  easier  and  more  efficient. 
Best  of  all,  it  frees  you  from  worrying 
about  the  infamous  lockup  bug  which 
has  haunted  Atari  BASIC  programmers 
for  years. 

Before  using  Enhancements  to 
BASIC,  you  must  follow  a  25-step  setup 
procedure  carefully  described  in  the 
manual.  First,  Enhancements  copies  your 
Atari  BASIC  cartridge  (400/800/ 
1200XL)  or  built-in  BASIC 
(600XL/800XL)  into  Random  Access 
Memory  (RAM).  Then  it  modifies 
BASIC,  adding  the  new  commands  and 
fixing  the  bug  which  can  unpredictably 
lock  up  the  Atari  during  program  edit- 
ing. Finally,  Enhajicements  copies  itself 
onto  another  disk  for  future  use.  From 
then  on,  you  simply  boot  up  the  modi- 
fied BASIC  from  this  disk,  either  remov- 
ing the  BASIC  cartridge  if  you  have  a 
400,  800,  or  1200XL,  or  holding  down 
OPTION  to  disable  the  built-in  BASIC 
on  the  600XL/800XL 

Most  of  the  new  features  are  fairly 
standard  for  utilities  of  this  type.  There 
are  commands  for  automatic  line- 
numbering  and  renumbering,  deleting 
blocks  of  lines,  listing  all  variables, 
searching  for  lines  containing  a  certain 
variable,  globally  changing  variable 
names,  and  sending  screen  output  to  a 
printer.  There  are  disk  commands  which 
lessen  the  need  to  exit  BASIC  to  DOS: 
You  can  call  disk  directories,  rename 
files,  lock  and  unlock  files,  delete  files, 
format  disks,  and  run  a  machine  lan- 
guage program  at  a  certain  address. 

That  would  be  enough  for  most  tool 
kit  utilities.  But  Etihancements  adds  some 
more  exotic  features.  There  are  com- 
mands to  restore,  rename,  and  call  direc- 
tories of  deleted  disk  files.  Another 
command  protects  BASIC  programs  by 
making  the  listings  unreadable  but  exe- 
cutable. You  can  lock  the  keyboard  to 
prevent  tampering  until  a  personal  au- 
thorization code  is  entered.  You  can 
change  screen  margins  and  the  delay 
period  before  keys  begin  repeating.  On  a 
600XL/800XL,  you  can  change  the  key- 


repeat  rate  and  turn  the  keyboard  click 
on  and  off.  You  can  display  numeric 
values  in  decimal  or  hexadecimal  (try 
renumbering  a  BASIC  program  in  hex!). 
There  are  even  programmable  function 
keys — for  example,  pressing  CTRL-4 
automatically  prints  LOAD"D:  or  any- 
thing you  like. 

But  perhaps  the  most  powerful  en- 
hancement is  the  tracer/debugger.  Most 
TRON/TROFF  (trace  on/off)  utilities 
simply  display  the  line  numbers  being 
executed  as  the  program  runs.  Enhance- 
ments displays  the  entire  line,  and  lets 
you  flip  back  and  forth  between  the 
scrolling  listing  and  the  actual  program 
running  simultaneously  on  an  alternate 
screen.  Implementing  this  feature  on  a 
computer  with  only  48K  or  64K  of  RAM 
is  quite  impressive.  Memory  conflicts 
sometimes  prevent  you  from  tracing 
very  large  or  complex  programs,  but 
nevertheless,  the  tracer  does  a  remark- 
able job  of  handling  such  memory- 
juggling  challenges  as  player/missile 
graphics,  custom  character  sets,  and  ma- 
chine language  subroutines.  You  can 
also  disable  the  tracer  to  conserve 
mem  or)'. 

There  are  still  more  features  we 
don't  have  room  to  cover,  such  as  a 
handy  help  screen.  Enhancements  is  an 
exceptional  product. 

Enhancements  to  BASIC 

First  Byte 

P.O.  Box  32 

Rices  Landing,  PA  15357 

S14.95  (hichides  shipping  &  hatidiing)     © 
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Tom  R,  Holfhill,  Editor 


FOR-NEXT  Applications 

Last  month  we  covered  the  basics  of 
looping  with  the  FOR-NEXT  state- 
ment. Now  let's  take  a  look  at  some 
practical  applications  of  this  essen- 
tial technique. 

FOR-NEXT  is  such  a  general- 
purpose  structure,  it  has  numerous 
uses.  Here's  an  example  of  how  you 
might  apply  it  in  part  of  a  check- 
book-balancing program  that  sums 
the  amounts  for  a  month's  worth  of 
checks: 

10  PRINT  "HOW  MANY  CHECKS 

THIS  MONTH"; 
20  INPUT  CH 
30  FOR  X  =  l  TO  CH 
40  PRINT  "AMOUNT  OF  CHECK"; 
SO  INPUT  AM 
60  SUM  "SUM -I- AM 
70  NEXT  X 
80  PRINT  "TOTAL  AMOUNT  IS 

$";SUM 

Let's  take  a  careful  look  at  this 
program.  Try  running  it.  Line  10 
prompts  the  user  to  enter  the  num- 
ber of  checks  to  be  added;  line  20 
stores  the  response  in  the  variable 
CH.  Line  30  is  a  little  tricky.  It  marks 
the  beginning  of  the  loop  with  a 
FOR  statement  as  shown  in  last 
month's  examples,  but  the  number 
of  repetitions  specified  is  a  variable, 
not  a  number. 

The  variable,  CH,  contains  the 
number  of  checks  the  user  entered 
in  response  to  the  prompt.  There- 
fore, the  number  of  times  the  FOR- 
NEXT  loop  will  repeat  depends  on 
the  user's  response.  In  effect,  the 
program  adapts  itself  to  the  user's 
needs.  Think  of  what  would  happen 
if  you  specified  the  number  of  loops 
with  a  certain  number,  say  10.  If  the 
user  has  only  7  checks,  the  program 
would  make  too  many  loops,  de- 
manding amounts  for  3  checks  that 
were  never  written.  If  the  user  has 
23  checks,  the  program  would  add 
only  10  of  them  together,  ignoring 
the  remaining  13. 
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Line  40  prompts  the  user  to  en- 
ter the  dollar  amount  of  the  first 
check  (do  not  type  a  dollar  sign). 
Line  50  stores  the  response  in  the 
variable  AM.  Line  60  creates  the 
variable  SUM  to  keep  track  of  the 
total  and  adds  AM  to  SUM  (when 
the  first  pass  through  the  loop  be- 
gins, SUM  equals  0). 

Line  70  marks  the  end  of  the 
loop.  It  circles  back  to  the  FOR  state- 
ment on  line  30.  Now  the  loop  be- 
gins its  second  pass.  Again,  a 
prompt  asks  the  user  to  input  a 
check  amount.  Again,  the  response 
is  stored  in  the  variable  AM  (replac- 
ing the  previous  amount  for  the  first 
check).  Again,  AM  is  added  to  SUM, 
so  SUM  now  contains  the  cumula- 
tive amounts  of  the  first  and  second 
checks.  And  again,  at  line  70,  NEXT 
X  circles  back  to  line  30  for  the  third 
pass. 

This  continues  until  the  num- 
ber of  loops  specified  by  CH  is 
reached.  Then  the  loop  is  done  and 
the  program  proceeds  to  line  80.  The 
program  prints  the  total  amount 
held  in  SUM  and  ends. 

This  example  shows  two 
things:  first,  the  usefulness  of  FOR- 
NEXT  loops  when  combined  with 
other  techniques,  such  as  INPUT 
statements;  and  second,  the  flexibili- 
ty of  FOR-NEXT  loops  when  modi- 
fied slightly,  such  as  specifying  the 
number  of  loops  with  a  variable  in- 
stead of  a  particular  number. 

Speed  READing 

One  of  the  most  common  applica- 
tions of  FOR-NEXT  loops  is  to  com- 
bine them  with  the  READ  and 
DATA  statements.  (If  you  aren't  fa- 
miliar with  READ-DATA,  don't 
worry;  it's  a  subject  for  a  future  col- 
umn.) By  embedding  a  READ  state- 
ment within  a  loop,  you  can 
efficiently  fill  an  array  with  DATA, 
or  POKE  numbers  for  custom  char- 
acter sets  or  machine  language  sub- 
routines into  memory. 


Let's  try  a  simple  example.  Say 

you're  writing  some  sort  of  calendar 
program  that  requires  the  computer 
to  print  a  column  of  numbers  repre- 
senting the  number  of  days  in  each 
month  of  the  year.  Without  looping, 
you  could  take  this  approach: 

10  PRINT  "31" 
20  PRINT  "28" 
30  PRINT  "31" 
40  PRINT  "30" 
50  PRINT  "31" 
60  PRINT  "30" 
70  PRINT  "31" 
80  PRINT  "31" 
90  PRINT  "30" 
100  PRINT  "31" 
110  PRINT  "30" 
120  PRINT  "31" 

But  a  FOR-NEXT  loop  with 
READ-DATA  is  much  more 
efficient: 

10  FOR  X=l  TO  12 
20  READ  A 
30  PRINT  A 
40  NEXT  X 

SO  DATA  31,28,31,30,31,30, 
31,31,30,31,30,31 

Line  10  sets  up  a  FOR-NEXT 

loop  with  12  passes  (the  number  of 
elements  in  the  DATA  statement  at 
line  50).  Line  20  reads  a  number 
from  the  DATA  statement  and 
stores  it  in  the  variable  A. 

Line  30  prints  the  value  of  A, 
which  changes  after  each  pass 
through  the  loop.  During  the  first 
pass,  A  equals  31  (the  number  of 
days  in  January)  because  31  is  the 
first  DATA  element.  During  the  sec- 
ond pass,  A  equals  28  (the  number 
of  days  in  February)  because  28  is 
the  second  DATA  element.  This 
continues  for  all  12  passes,  conclud- 
ing when  A  is  assigned  the  value  31 
for  the  twelfth  month,  December. 

Next  month,  we'll  continue  our 
discussion  of  FOR-NEXT  by  show- 
ing how  to  put  loops  within  loops, 
and  even  why  you  might  want  to 
create  a  loop  that  does  absolutely 
nothmg.  We'll  also  cover  some  varia- 
tions of  FOR-NEXT  in  different  ver- 
sions of  BASIC.  © 


You  never  know  who  you  will  meet 
or  what  will  be  said  when  you're  on 
American  People/Link. 


AMERICAN  PEOPLE/LINK^"  users  meet  a  lot  of 
different  people.  That's  because  PEOPLE/LINK—  the 
nation's  first  all  entertainment  videotex 
network  —  allows  anyone  with  a  word  processor, 
personal  computer  or  terminal,  and  a  modem  to 
communicate  with  other  users  throughout  the  country 
from  the  privacy  of  their  own  homes. 

Sometimes  these  electronic  conversations  are 
serious... sometimes  they're  outrageous... but  they  will 
always  keep  your  interest  as  you  talk  to  friends  and 
make  new  ones.  PEOPLE/LINK's  recreational  programs 
include: 

PARTYLfNE  —  Meet  people  and  talk  live  with  other 
PEOPLE/LINK  members  throughout  the  country  in 
groups  or  privately. 


CLUB-LINK  —  Join  or  start  a  club  or  group  devoted  to 
a  favorite  hobby,  rock  group,  lifestyle,  etc. 

WHO-IS-WHO  —  locate  other  users  with  similar  interests. 

And  there's  much  more  with  programs  like  NETMAIL, 
our  person-to-person  electronic  mail,  PEOPLESCAN, 
the  national  bulletin  board  system,  and  play  games  such 
as  poker,  blackjack,  checkers,  chess,  backgammon,  and 
bridge  (color  graphics  are  available  for  most  popular 
computers). 

And  the  greatest  thing  is  that  you  don't  have  to  be  a 
computer  whiz  or  even  know  how  to  type  to  use 
PEOPLE/LINK. ..just  be  smart  enough  to  subscribe  now! 


AMERICAN 

PEOPLE 


Computers  And  Society 


David  D,  Thornburg,  Associate  Editor 


Expert  Systems  And  The  Mass  Market  Micro 


A  few  months  back  I  raised  the  con- 
troversial notion  that,  contrary  to 
the  views  of  the  pundits,  the  home 
computer  industry  hadn't  died.  In 
fact  (and  here's  where  the  criticism 
came),  I  argued  that  the  true 
"home"  computer  market  had  yet  to 
be  born. 

My  point  was  that  personal 
computers  are  unlikely  to  penetrate 
much  more  than  10  percent  of 
American  homes  until  they  become 
as  easy  to  use  as  much  of  the  other 
technology  we  find  in  our  homes.  I 
agree  it  is  silly  to  expect  a  personal 
computer  to  be  as  easy  to  use  as  a 
clothes  dryer.  On  the  other  hand, 
why  should  it  be  any  harder  to  use 
than  a  video  disc  player,  especially 
when  the  video  player  contains 
more  complex  technology  than  is 
found  in  most  persona!  computers? 

Before  home  computers  be- 
come commonplace,  we  must  also 
create  home  software  applications 
that  will  allow  the  computer  to  ad- 
vance beyond  the  stage  of  being  a 
tool  for  writing  or  record-keeping. 
Imagine  sitting  at  your  computer  in 
the  middle  of  the  night  and  engag- 
ing in  the  following  dialog  with  your 
home  computer: 

What  seems  to  be  the  problem? 

My  child  just  woke  up  and  says 
he  itches.  He  has  red  splotches  on 
his  face. 

Red  splotches  can  indicate  many 
things.  Please  call  your  child's  doctor 
now.  If  the  doctor  has  to  call  you  back, 
please  continue  to  ansioer  my  ques- 
tions while  you  are  waiting  for  the  call 
to  be  returned.  Are  the  red  splotches 
located  on  other  areas  of  the  body  as 
well? 

Yes,  there  are  some  small  ones 
on  the  chest. 

Did  your  child  eat  any  of  the 
following  foods  in  the  last  eight  hours: 
oranges,  strawberries,  chocolate? 
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Yes,  we  had  ham  with  an  or- 
ange peel  sauce  for  dinner. 

Has  your  child  ever  displayed  an 
allergic  reaction  to  orange  juice? 

[And  so  on.] 

Applying  Artificial 
Inteliigence 

This  hypothetical  interaction  could 
help  save  a  family  member's  life,  or 
at  least  reduce  discomfort,  Such  pro- 
grams— which  can  help  solve  prob- 
lems ranging  from  diagnosing  an 
illness  to  selecting  the  correct  wine 
for  dinner — are  called  expert 
systems. 

Expert  systems  are  one  of  the 
current  commercial  applications  of 
research  in  the  field  of  artificial  in- 
telligence. Up  to  this  point,  most 
expert  systems  have  been  run  on 
fairly  large  computer  systems,  and 
they  have  been  applied  to  massive 
computational  tasks  such  as  choos- 
ing the  correct  location  for  offshore 
oil  wells. 

Creating  an  expert  system  re- 
quires close  interaction  with  human 
experts  who  are  able  to  express  their 
own  decision-making  process  in 
terms  of  rules.  Each  rule  is  generally 
expressed  in  the  form:  IF  (conditions 
are  true)  THEN  (result  is  likely).  Many 
of  the  more  sophisticated  expert  sys- 
tems have  ways  of  dealing  with  im- 
precise information — assigning 
likelihoods  to  various  results  de- 
pending on  the  certainty  with  which 
the  conditions  are  known. 

The  expert  system  program 
contains  this  set  of  rules  (which  can 
range  in  number  to  well  over  100). 
The  program  also  contains  another 
part  called  an  inference  engine.  The 
inference  engine  decides  which  rule 
to  apply  to  the  various  information 
that  has  been  entered,  knows  when 
to  ask  for  more  information,  and 
infers  a  result.  Once  an  expert  sys- 


tem has  drawn  a  conclusion,  the 
user  can  usually  enter  a  command 
such  as  WHY?,  and  the  system  out- 
lines the  various  rules  and  infor- 
mation it  used  to  get  its  result. 
Mathematically  speaking,  such  pro- 
grams can  prove  themselves. 

Ferns  Versus  Roses 

Anyone  can  probably  list  several  ap- 
plications for  expert  systems:  home 
medicine,  car  problems,  plant 
choices  for  the  garden,  choosing  the 
right  stereo,  and  even  picking  the 
right  computer! 

As  home  computers  acquire 
more  memory  and  disk  storage,  ex- 
pert systems  will  become  common- 
place.  Artificial  intelligence 
languages  such  as  PROLOG  and 
LISP  are  now  being  readied  for  the 
personal  computers  many  of  us  al- 
ready have,  so  there  is  no  techno- 
logical reason  that  expert  systems 
won't  become  a  reality  in  our  coun- 
try in  the  next  two  years. 

Consider  that  in  Britain,  PRO- 
LOG is  available  on  the  inexpensive 
Sinclair  Spectrum  +  for  under  $40. 
According  to  Sinclair,  this  language 
is  selling  well,  and  is  being  taught  to 
school  children  who  are  using  it  to 
build  their  own  expert  systems.  The 
current  interest  in  teaching  database 
skills  in  our  country  is  a  refreshing 
step  in  the  right  direction. 

The  birth  of  the  true  consumer 
market  for  computers  (a  market  in 
which  computers  will  become  as 
commonplace  as  televisions)  will 
come  very  soon.  We  who  have  used 
personal  computers  since  the  1970s 
and  early  1980s  will  be  fondly  re- 
membered as  the  pioneers  of  the 
true  information  revolution. 

And,  to  the  extent  that  we  cre- 
ate useful  applications  for  these  ma- 
chines, we  may  become  shapers  of 
the  revolution  as  well.  © 
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People  who  wouldn't  think  of  shoplifting  a  software'' 
product  on  their  lunch  hour  don't  think  twice  about 
going  back  to  the  office  and  making  several 
illegal  copies  of  the  sanne  software. 

Making  unauthorized  copies  of  software  is  a  violation  of  U.ST" 
Copyright  Law.    Yet,  the  problem  has  reached  epidemic 
proportions  because  many  people  are  unaware,  or  simply 
choose  to  ignore  the  law.    The  software  industry  is  urging 
decision-makers  and  software  users  to  take  steps  to  stop  soft- 
ware piracy  in  their  organizations.    In  the  meantime,  the  indus- 
try has  been  forced  to  prosecute  willful  copyright  violators. 

There  are  legal,  moral  and  economic  imperatives  forbidding 
theft  of  copyrighted  software. 


There  is  a  free  pamphlet  on  the  subject.    Call  or  write  for  a 
copy.    A  copy.    A  copy.    A  copy  for  everyone  you  know. 
Please  ask  for  Priscilla. 
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Arlington,  Virginia  22209 
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On  The  Road  With  Fred  D'Ignazio 


Bits,  Bytes,  And  Black  Sheep 


Late  last  fall  1  attended  the  Bits  & 
Bytes  Show  at  the  Disneyland 
Hotel  in  Anaheim,  California.  Bits 
&  Bytes  was  the  first  national  com- 
puter conference  for  kids,  and  I 
was  there  to  cover  it  for  COMPUTE! 
and  for  two  PBS  shows — "The 
New  Tech  Times"  and  "Education- 
al Computing." 

The  show  was  a  terrific  suc- 
cess— especially  for  children.  Thou- 
sands of  kids  came,  played  with  the 
newest  computers  and  robots,  and 
got  a  chance  to  tell  the  bigwigs  of 
the  computer  industry  what  they 
thought  about  their  products.  For 
example,  one  little  girl,  Kimberly 
Williams,  returned  from  the  show 
and  wrote  to  the  conference  orga- 
nizers: "Thank  you  for  inviting  my 
class  to  the  computer  show.  It  taught 
me  and  my  friends  a  lot  about  com- 
puters. The  computers  were  very 
learningful  to  my  brain." 

At  the  show,  I  gave  a  presenta- 
tion on  a  favorite  topic  of  mine;  the 
ways  in  which  a  computer  could 
become  a  "sandbox"  for  little  chil- 
dren. I  also  made  a  few  critical  re- 
marks about  the  programming 
language  Logo.  I  said  that  although  1 
enjoy  programming  in  Logo,  1  don't 
think  computer  languages  are  espe- 
cially appropriate  for  younger  chil- 
dren because  the  rewards  are  not 
commensurate  with  the  amount  of 
effort  required.  Also,  1  said  that  the 
Logo  environment  is  somewhat  arti- 
ficial, abstract,  and  not  meaningful 
to  a  small  child. 

Angry  Reaction 

I  had  made  similar  remarks  at  other 
conferences,  so  I  didn't  expect  the 
kind  of  reaction  I  got.  What  a  shock! 
Ten  minutes  into  my  talk,  people  in 
the  front  row  rose  to  their  feet  and 
furiously  denied  that  anything  1  had 
said  was  true.  They  were  teachers 
who  had  been  teaching  Logo  to  their 
classes  at  school,  and  they  said  their 
experiences  had  been  exactly  the 
opposite  of  my  own. 
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After  listening  to  their  point  of 
view  for  a  few  minutes,  I  asked  oth- 
er members  of  the  audience  if  they 
agreed.  By  the  end  of  the  session 
(which  turned  into  a  free-for-all  de- 
bate), I  learned  that  there  are  many 
different  points  of  view  about  Logo 
and  very  few  points  of  universal 
agreement. 

However,  my  feelings  about  the 
Logo  controversy  were  strength- 
ened the  other  night  when  1  picked 
up  a  copy  of  an  excellent  Canadian 
magazine.  Computers  in  Education, 
and  read  an  article  by  Elias  Leousis, 
a  teacher  and  the  founder  of  the  first 
full-time  computer  literacy  program 
at  the  elementary  level  in  the  prov- 
ince of  Quebec.  In  the  article,  enti- 
tled "Black  Sheep  and  Logo," 
Leousis  wrote  that  "Logomania"  is 
starting  to  become  a  cult.  Leousis 
himself  uses  Logo  to  teach  program- 
ming skills,  but  he  worries  about  the 
absurd  claims  made  by  some  of 
Logo's  admirers.  "As  a  result  of  such 
claims,"  he  wrote,  "disillusioned 
educators,  having  followed  the 
'Logo  route,'  may  cause  an  anh- 
computer  backlash,  destroying  all 
advances  made  in  the  area  of  intro- 
ducing computer  literacy  in  the  edu- 
cation field." 

People  Inside  The  Machine 

A  few  years  ago,  I  wrote  a  book 
introducing  computers  to  children.  I 
interviewed  dozens  of  computer 
pioneers,  including  J.  Presper 
Eckert,  who  along  with  John  W. 
Mauchley  invented  the  ENIAC,  the 
granddaddy  of  today's  electronic 
digital  computers. 

1  wanted  to  call  the  book  The 
People  Inside  the  Machine  because  1 
concentrated  on  the  inventors  and 
the  excitement  and  joy  they  had  re- 
ceived from  working  on  computers. 
The  book  showed  youngsters  how 
real  people  with  hopes,  dreams,  and 
frailties  had  built  computers,  step  by 
step,  over  many,  many  years.  By 
showing  the  people  inside  the  ma- 


chine, 1  hoped  to  encourage  young 
readers  to  see  a  reflection  of  them- 
selves inside  machines  of  the  future. 
The  book's  message  was  that  inven- 
tions like  the  computer  may  require 
a  dash  of  genius,  but  even  more 
important  are  hard  work,  a  playful 
imagination,  devotion,  and  stub- 
born, mulelike  persistence  in  fol- 
lowing through  with  your  own  ideas 
and  magnificent  obsessions. 

As  it  turned  out,  the  book  was 
refilled  Messner's  Introduction  to  the 
Computer  (Simon  &  Schuster,  1983), 
but  it's  still  oriented  to  young  peo- 
ple. If  you're  a  grownup  who  wants 
to  read  about  the  people  inside  the 
machine,  I  recommend  Tom  Mahon's 
new  book.  Charged  Bodies:  People, 
Power,  and  Politics  in  Silicon  Valley 
(NAL,  paperback,  1985),  Mahon's 
account  is  one  of  the  most  honest, 
eloquent,  and  fascinating  books  I've 
read  in  a  long  time.  You  learn  about 
computer  technology — the  semi- 
conductors, microchips,  operating 
systems,  and  Winchester  disks — but 
Mahon  weaves  the  technology  into 
the  lives  of  the  industry's  famous 
and  obscure  pioneers,  and  has  made 
what  could  have  been  a  dry  history 
of  computers  into  a  very  interesting 
story. 

Mahon  doesn't  pull  any  punch- 
es, either.  He  devotes  equal  atten- 
tion to  the  dark  side  of  computers  as 
well  as  the  light  side.  And  he  does  it 
all  in  a  vivid  style  reminiscent  of 
Tracy  Kidder's  Pulitzer  Prize- 
winning  Soul  of  a  New  Machine  (Lit- 
tle,   Brown,    1981). 

This  book  is  an  excellent  primer 
on  computer  technology  and  the 
computer  industry,  and  it  will  make 
a  good  computer  literacy  text  for 
high  school  and  college  introduc- 
tory courses  on  computers.  © 

Fred  D'Ignazio  loves  to  get  electronic 
mail.  Here  are  his  electronic  mail- 
boxes: The  Source  (BCA638);  Compu- 
Serve (75166,267);  MCI  Mail  (Fred 
D'Ignazio);  and  EasyLink  (62856637). 


TELECOMPUTING  TODAY 


Arlan  R,  _evitan 


Inside  XMODEM 


Last  month  we  covered  the  basics  of 
uploading  and  downloading  and 
how  the  XMODEM  protocol  devel- 
oped into  a  system  for  reliably  trans- 
ferring files  over  phone  lines.  Now 
let's  take  a  look  inside  XMODEM  to 
see  how  it  works. 

XMODEM  requires  certain 
communications  settings  (eight  data 
bits,  no  parity,  one  stop  bit).  Some 
terminal  programs  set  these  param- 
eters automatically  during  XMODEM 
transfers.  Others  require  you  to  set 
them  manually. 

XMODEM  transfers  files  by 
sending  and  receiving  them  in 
blocks.  Each  block  consists  of  five 
elements:  a  special  character  that 
marks  the  beginning  of  the  block 
(called  a  start  of  header  character);  a 
number  which  identifies  the  se- 
quence number  of  the  block  (incre- 
mented by  one  for  each  block  sent); 
a  number  which  insures  the  block 
number  is  correct;  a  128-byte  chunk 
of  the  file  being  transferred  (the  file 
is  chopped  up  on  the  sending  end 
and  reassembled  on  the  receiving 
end);  and  a  number  to  verify  that  the 
128-byte  chunk  of  data  received  is 
the  same  as  was  sent.  This  number 
is  called  a  checksum.  It  is  the  sum  of 
the  hexadecimal  values  of  all  128 
characters. 

Downloading 

After  notifying  the  remote  system 
that  you  want  to  download  a  certain 
file  with  XMODEM,  the  other  sys- 
tem prepares  the  file  for  transmis- 
sion and  then  waits  for  your  signal 
that  things  are  ready  to  begin.  When 
you  instruct  your  terminal  program 
to  begin  the  transfer,  it  sends  an 
acknowledgment  signal  consisting 
of  a  single  character  called  an  ACK. 
The  first  ACK  means  "ready  for  next 
block." 

The  remote  system  then  sends  a 
block  to  your  computer.  Your  termi- 
nal software  looks  for  the  start  of 
header  character,  then  checks  the 
block  number  for  both  validity  and 
proper  sequence.  Next  it  examines 


the  128  bytes  of  data  and  calculates 

a  checksum.  It  compares  this  to  the 
checksum  actually  sent  by  the  re- 
mote system;  if  both  are  the  same,  it 
assumes  the  data  was  transmitted 
without  errors. 

As  each  block  is  successfully 
received,  another  ACK  is  sent.  If  an 
error  is  detected  or  the  next  block  is 
not  transmitted  after  a  certain 
amount  of  time,  your  terminal  pro- 
gram sends  a  character  referred  to  as 
a  NAK  (negative  acknowledgment). 
A  NAK  means,  "I  think  we  had  a 
problem  with  the  last  block;  please 
resend  it."  The  transfer  is  aborted  if 
a  single  block  must  be  resent  more 
than  an  agreed-upon  number  of 
times  (usually  ten).  When  the  trans- 
fer is  complete,  the  remote  system 
sends  a  signal  called  EOT  (end  of 
transmission). 

Nonstandard  Protocols 

Although  the  original  standards  for 
XMODEM  file  transfers  are  well  es- 
tablished, not  all  terminal  programs 
that  adverhse  XMODEM  capability 
actually  conform  to  the  standard. 
Here  is  an  example  of  what  can  hap- 
pen (the  names  have  been  changed 
to  protect  the  innocent); 

The  Bitblaster  computer  has 
been  available  for  about  a  year. 
Some  kindly  soul,  intent  upon  put- 
ting far-flung  Bitblaster  owners  in 
touch  with  each  other,  writes  a  bul- 
letin board  program  for  the  new  ma- 
chine. Since  he  wants  to  encourage 
people  to  share  programs  for  the 
Bitblaster,  he  includes  an  XMODEM 
feature.  His  friend  writes  a  public 
domain  terminal  program  with 
XMODEM  capability  and  starts 
passing  it  around. 

What  they  don't  know  is  that 
their  implementation  of  XMODEM 
was  not  strictly  by  the  book.  But 
since  the  terminal  program  and  BBS 
work  fine  together,  no  one  noHces. 
The  number  of  Bitblaster  BBS  sys- 
tems rapidly  multiplies,  and  there 
are  thousands  of  copies  of  the  free 
terminal  program  in  use. 


However,  when  Bitblaster  own- 
ers start  using  the  terminal  program 
on  other  systems,  they  discover — 
much  to  their  chagrin — that  the 
good  ol'  XMODEM  feature  doesn't 
work  too  well  on  non-Bitblaster 
BBSs.  When  something  like  this 
happens,  it  can  take  years  for  every- 
one to  agree  on  a  common  fix  for  the 
problem.  Even  commercial  telecom- 
puting packages  are  written  by  nor- 
mal people,  perfectly  capable  of 
making  such  mistakes. 

Other  Problems 

Commercial  information  services 
are  not  well  suited  to  XMODEM 
transfers.  The  protocol  was  devel- 
oped for  microcomputer-based  BBSs 
which  handle  only  one  user  at  a 
time  and  can  therefore  devote  all  of 
their  attention  to  the  transfer.  On  a 
commercial  service,  hundreds  of  us- 
ers may  be  logged  on  simultaneous- 
ly, and  the  mainframe  computer 
gives  each  user  only  a  certain 
amount  of  attention  for  a  certain 
time  period. 

The  only  way  to  make  XMO- 
DEM work  on  the  information  ser- 
vices was  to  relax  the  timing 
standards.  However,  this  severely 
limits  the  ability  to  recover  from  bad 
blocks  and  out-of-sync  acknowledg- 
ment signals. 

Although  errors  are  relatively 
rare,  many  terminal  programs  and 
information  services  offer  their  own 
transfer  methods  in  addition  to  (or 
instead  oO  XMODEM,  There's  only 
one  hitch — often  this  means  both 
computers  involved  in  the  transfer 
must  be  running  the  same  terminal 
program,  or  in  the  case  of  infor- 
mation services,  a  terminal  program 
written  and  sold  by  the  service  for 
your  particular  system. 

Next  month,  as  promised  earli- 
er, I'll  show  you  how  to  save  money 
when  sending  E-mail  by  composing 
your  messages  offline  and  then  up- 
loading them  to  the  host  computer. 
Until  then,  BCNU.  ® 
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IBM  Personal  Computing 


Donald  B,  Trivette 


Escaping  On  A  LaserJet 


This  Hewlett-Packard  LaserJet  printer  is 
shown  hooked  up  to  an  HP  150  com- 
puter, but  it  also  works  with  the  IBM  PC 
and  compatibles. 

I  got  a  letter  last  month  from  my 
friend  who  has  a  covey  of  computers 
in  his  spare  bedroom.  Five  at  last 
count!  We've  had  a  friendly  rivalry 
going  for  years.  I  bought  a  pocket 
calculator,  and  he  bought  an  Apple 
III.  I  got  an  IBM  PC  first,  but  he  got  a 
bigger  one — the  XT.  I  bought  a  PCjr, 
so  he  got  a  PCjr  and,  a  few  months 
later,  the  PC  AT.  Now  he  sends  me 
this  letter:  "This  is  the  first  letter 
ever  written  with  my  Apple  Image- 
writer  and  Macintosh  computer.. .it 
sure  is  fun  to  play  with  the  font  sizes 
and  styles  and  formats...." 

The  font  he  was  experimenhng 
with  looked  like  a  cross  between 
stencil  letters  and  something  a 
monk  in  the  Middle  Ages  might 
have  laboriously  drawn  with  a 
quill — right  justified,  of  course. 
Having  run  out  of  IBM  equipment  to 
one-up  me  with,  he  has  switched  to 
Apple.  The  letter  isn't  easy  to  read, 
but  it  is  flashy.  I  thought  about  go- 
ing to  the  Apple  store  and  trying  out 
a  Macintosh  long  enough  to  answer 
his  letter,  but  I  needed  something 
better  than  that — something  better 
than  IBM  or  Apple. 

A  Printer  Or  Copier? 

It  was  about  this  time  that  Hewlett- 
Packard  called  to  say  they  had  a 
LaserJet  printer  for  me  to  evaluate. 
Although  it  arrived  at  the  airport, 
the  LaserJet  looked  more  like  an  of- 
fice copying  machine  than  an  air- 
plane. And  for  good  reason — that's 
mostly  what  it  is.  The  data  from  the 
computer  is  etched  on  a  drum  by  a 
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laser,  and  then  transferred — one 
page  at  a  time,  eight  pages  per  min- 
ute— from  the  drum  to  the  paper. 
There's  a  tray  for  blank  paper,  a 
cartridge  for  toner,  and  a  manual  to 
show  you  how  to  fix  a  paper  jam. 
Anyone  who  has  used  a  copying 
machine  will  feel  right  at  home  with 
the  LaserJet. 

Connection  was  easy.  I  un- 
plugged my  Hayes  modem  and 
plugged  the  LaserJet  cable  into  the 
modem  cable.  Typing  two  DOS 
commands  told  the  PC  to  forget  my 
parallel  printer  and  talk  instead  to 
the  LaserJet,  which  is  a  serial 
printer. 

Using  the  LaserJet  takes  a  little 
getting  used  to.  You  send  something 
to  the  printer  and  nothing  hap- 
pens— at  least,  it  doesn't  look  or 
sound  like  anything  is  happening. 
There's  virtually  no  noise  except  for 
a  quiet  fan.  And  nothing  immediate- 
ly pops  out.  The  printer  etches  the 
text  on  the  drum  and  then  waits  for 
the  page  to  fill  up  before  transferring 
the  data  to  paper.  If  you  want  to 
print  a  partial  page,  you  press  the 
form  feed  button.  Once  you've  mas- 
tered the  idea  that  printing  and 
noise  are  not  related,  the  LaserJet 
operates  much  like  any  other  print- 
er. (In  fact,  it's  so  much  fun  that  I 
lasered  a  whole  ream  of  paper  play- 
ing with  it.) 

The  print  quality  is  superb.  Al- 
though the  characters  are  formed 
with  tiny  dots,  like  a  dot-matrix 
printer,  the  300  X  300  dots-per-inch 
resolution  is  so  fine  that  you  need  a 
magnifying  glass  to  prove  how  it 
was  done.  The  quality  of  the  print  is 

A  sample  printout  made  with  the 
LaserJet. 

Hi  David  — 

I  got   your   letter  and  was 
surprised   to   hear  that  you  bought  a 
Macimosh.    The  Imagewriter  docs  a 
fancy  job  of  printing  even  if  it  is  a 
little  difficult  to  read.' 

1.  PenonalLy,  I've  found  thlt  8-potnt  type  very 
UBeful     for     footnotes.     Doea     the      Imagewriter 
■upport  anything  like  this? 


better  than  that  of  my  NEC  3550 
printer,  which  has  fully  formed 
characters  and  uses  a  film  ribbon. 
But  in  a  duel  of  one-upmanship, 
quality  isn't  enough.  You've  got  to 
have  sizzle.  The  Hewlett-Packard 
LaserJet  has  plenty  of  sizzle. 

Custom  Printing 

Different  type  styles  (fonts)  are 
available  by  plugging  a  Read  Only 
Memory  (ROM)  cartridge  into  the 
front  of  the  printer.  Each  cartridge — 
about  the  same  size  and  shape  as  the 
old  eight-track  audio  tapes — can 
store  up  to  16  fonts,  although  the 
one  1  used  had  only  eight.  To  select  a 
font,  you  simply  send  a  special  char- 
acter sequence  (called  an  escape  se- 
quence) to  the  printer. 

The  LaserJet  is  more  powerful 
than  most  printers,  so  the  escape 
sequences  are  somewhat  longer  and 
more  complicated.  For  example,  to 
enable  bold  printing,  the  sequence 
on  my  NEC  3550  is  escE  (where  esc 
represents  the  escape  character,  AS- 
CII 27).  On  the  LaserJet,  the  equiva- 
lent command  is  esc&J0Oesc(0Uesc 
(slplOvOslbST. 

The  LaserJet  is  a  relative  bar- 
gain at  $3,495,  considering  its  power 
and  new  technology,  but  only  if  you 
can  easily  take  advantage  of  all  its 
features  without  having  to  resort  to 
these  huge  escape  sequences.  Fortu- 
nately, some  programs  are  appear- 
ing which  relieve  you  of  this 
burden.  The  Volkswriter  Deluxe,  Ver- 
sion 2.1  word  processor  has  a  printer 
driver  especially  designed  for  the 
Hewlett-Packard  LaserJet  printer 
that  does  a  splendid  job. 

The  accompanying  figure 
shows  part  of  the  letter  I  sent  to  my 
friend  to  demonstrate  som^  of  the 
nice  things  the  LaserJet  with  Volks- 
writer Deluxe  can  do.  1  didn't  men- 
tion to  him  that  the  printer  had  to  be 
returned  to  Hewlett-Packard  at  the 
end  of  the  month.  Since  I  haven't 
yet  received  a  reply,  I  expect  he's 
measuring  his  spare  bedroom  for  a 
mainframe.  O 


INSIGHT:  Atari 


Bill  Wilkinson 


Analyzing  The  BASIC  Bug 


Last  month  I  showed  some  ways  to 
minimize  the  problems  caused  by 
the  bugs  in  revision  B  Atari  BASIC 
(the  built-in  BASIC  in  the  600XL 
and  800XL).  But  many  of  you  are 
curious  about  exactly  ivhy  these 
bugs  happen,  and  what  effect  they 
can  have  on  your  programs. 

Let  me  begin  by  telling  what 
did  not  cause  the  error.  Rev  B  BASIC 
has  a  peculiar  problem:  Each  time 
you  LOAD  (or  CLOAD  or  RUN 
"filename")  a  program,  rev  B  adds  16 
bytes  to  the  size  of  your  program.  If 
you  then  save  the  program,  the  next 
time  you  load  it  in  it  grows  by  anoth- 
er 16  bytes,  and  so  on. 

Now  believe  it  or  else,  these 
additional  16  bytes  were  put  in  de- 
liberately. It  seems  that  there  is  a 
minor,  undocumented  bug  in  the 
Atari  S:  (graphics  screen)  driver.  Un- 
der some  circumstances,  it  will  use  a 
few  bytes  below  MEMHI  (contents 
of  locations  $2E5-$2E6,  741-742 
decimal).  So,  if  you  have  a  program 
which  extends  right  to  the  very  top 
of  memory,  you  can  wipe  out  a  little 
bit  of  the  runtime  stack  where 
GOSUBs  and  FORs  are  remem- 
bered. Somebody  at  the  old  Atari 
apparently  had  the  bright  idea  that 
if  BASIC  told  you  that  memory  was 
full  when  your  program  got  within 
16  bytes  of  MEMHL  the  screen/BA- 
SIC  conflict  could  be  avoided. 

A  Fix  Gone  Sour 

Pretty  good  idea.  Except  for  a  few 
problems.  First,  BASIC  doesn't  save 
the  string/array  space  of  the  run- 
time stack;  both  are  created  when  a 
program  is  run.  So  the  nice  fact  that 
the  saved  file  is  guaranteed  to  have 
16  bytes  of  space  left  is  negated  as 
soon  as  you  DlMension  a  string  or 
an  array  or  use  a  GOSUB  or  FOR. 
Second,  the  16  bytes  are  added  to  all 
of  BASIC'S  size  pointers  before  the 
comparison  with  MEMHI  is  made. 
Good.  But  the  newly  increased  val- 
ue is  then  stored  as  the  new  pointer 
value.  That  effectively  moves  the 


program  upward  in  memory  by  16 
bytes,  meaning  that  the  desired  16 
bytes  of  free  space  aren't  there 
anyway! 

Well,  the  point  of  this  digres- 
sion is  twofold:  (1)  This  is  yet  anoth- 
er reason  to  use  LIST  and  ENTER 
with  rev  B  BASIC,  since  ENTERing  a 
program  does  not  trigger  this  silly 
16-byte  bug.  (2)  Several  people 
wrote  and  suggested  that  this  16- 
byte  bug  is  what  causes  the  infa- 
mous keyboard  lockup  bug.  Sorry, 
folks. 

Last  month,  I  mentioned  the 
detailed  explanation  of  the  rev  A 
Atari  BASIC  lockup  bug  which  is  to 
be  found  in  COMPUTEl's  Atari 
BASIC  Source  Book.  Well,  apparently 
somebody  at  Atari  read  the  book.  Or 
maybe  they  just  noticed  that  my 
company  had  fixed  the  lockup  bug 
in  one  of  the  three  or  four  revised 
versions  of  BASIC  that  we  did  for 
Atari  back  in  1979  (yes,  that's  1979). 
It  turns  out  that  the  lockup  resulted 
from  two  missing  instructions  (and  a 
total  of  two  bytes)  within  the  routine 
which  "contracts"  memory.  (We  say 
"contracts"  because  it  is  used  when 
you  delete  a  program  line,  so  the 
program  is  contracted  in  size.) 

Then  that  same  somebody 
looked  at  the  "expand"  routine  and 
saw  almost  identical  code.  "Aha!" 
they  say,  "Methinks  there  is  a  bug 
here  which  just  hasn't  been  discov- 
ered yet!" 

If  It  Ain't  Broken  .  .  . 

But  they  were  wrong.  The  reason 
the  bug  appeared  in  the  contract 
routine  is  because  that  routine  was 
written  after  the  expand  routine  and 
copied  its  pattern  too  closely.  So  our 
unknown  someone  at  Atari  blindly 
added  code  to  the  healthy  expand 
routine  and  introduced  a  very  nasty 
new  bug.  In  fact,  because  this  bug 
appears  when  you  add  lines  to  an 
existing  program,  it  is  probably 
more  likely  to  occur  than  the  origi- 
nal rev  A  bug! 


To  see  a  demonstration  of  the 
bug,  enter  the  following  statements 
in  direct  mode  (without  line 
numbers): 

DIM  AS<249) 

AS  =  "ANY  STRING  YOU  LIKE" 

PRINT  AS 

PRINT  AS, 

PRINT  AS, 

The  last  two  statements  won't 
print  A$  properly  in  either  rev  A  or 
rev  B  Atari  BASIC— in  fact,  they'll 
mess  it  up  two  different  ways.  Cute, 
eh?  The  problem  is  that  tacking  that 
comma  on  the  end  of  the  PRINT 
statement  moves  the  string/array 
space  (and  thus  A$)  by  one  byte. 
Except  it  doesn't,  really,  so  the  vari- 
able value  table  address  of  A$  points 
to  the  wrong  place  in  memory! 
Imagine  your  program  being  de- 
stroyed in  a  similar  way.  Is  it  any 
wonder  you  experience  keyboard 
lockup  and  scrambled  listings? 

What  former  Atari  employee 
did  I  bribe  to  get  all  this  informadon 
about  the  bugs  in  rev  B  BASIC?  Did  I 
get  the  listing  on  a  microdot  hidden 
in  a  pack  of  blank  disks?  Sorry  to 
disappoint  you,  but  I  did  what  any 
other  hacker  would  do:  I  dragged 
out  my  trusty  machine  language  de- 
bugger and  carefully  disassembled 
certain  portions  of  rev  B  BASIC. 

Finally,  here's  how  the  two 
bugs  we  have  discussed  were  fixed 
in  rev  C  BASIC,  which  is  built  into 
the  new  XE  series  computers  (and 
also  is  available  for  older  Ataris  on 
cartridge  at  nominal  cost — see  last 
month's  column).  Since  both  bugs 
were  caused  by  adding  things  to 
code  which  worked  before,  you 
would  think  that  Atari  could  simply 
take  the  "fixes"  back  out.  Nope.  In- 
stead, they  patched  over  the  extra- 
neous instructions  with  what  are 
effectively  NOP  (NO  oPeration)  in- 
structions. Tacky?  Well,  I've  certain- 
ly done  it  to  DOS  here  in  this 
column  enough  times,  so  who  am  I 
to  say?  © 
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PROGRAMMING  THE  Tl 


C.  Regena 


Multiple  Choice  Test 


I've  seen  a  number  of  computer  pro- 
grams written  for  multiple  choice 
tests.  The  computer  is  an  ideal  way 
to  administer  such  tests  because  it 
can  mix  up  the  test  questions  so  each 
run  is  different.  However,  all  the 
programs  I  have  seen  always  print 
the  choices  in  the  same  order.  This 
month's  program  is  a  general- 
purpose  multiple  choice  tester  that 
randomly  arranges  both  the  ques- 
tions (without  repetition)  and  the 
possible  answers. 

This  program  can  be  used  for 
questions  on  any  topic.  Computer 
literacy  questions  are  included  here 
for  an  example. 

The  questions  and  answers  are 
in  DATA  statements.  Each  DATA 
statement  contains  six  items.  The 
first  item  is  the  question;  the  next 
four  are  the  possible  answers;  and 
the  last  item  is  the  number  of  the 
correct  answer.  The  final  DATA 
statement  signals  the  end  of  the 
question  list: 

1350  DATA  ZZZ,Z,Z,Z,Z,0 

You  may  use  any  number  of 
possible  questions  that  will  fit  in  the 
computer's  memory.  Line  190  is  a 
DlMension  statement  that  allows 
for  30  possible  questions.  To  in- 
crease the  number  of  questions, 
change  al!  the  30s  in  line  190. 

Reading  The  Data 

Line  160  defines  the  number  of 
questions  in  the  test,  and  line  300 
performs  the  procedure  for  the  spec- 
ified number  of  questions.  If  you 
want  to  alter  this  number,  change 
the  20  in  these  two  lines  plus  the 
printed  score  in  line  690.  Also  make 
sure  you  have  as  many  or  more 
questions  and  answers  in  the  DATA 
statements  as  you  want  in  the  test. 
The  variable  I  is  used  as  a 
counter  for  the  questions.  Questions 
read  from  the  DATA  statements  are 
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Stored  in  the  string  variable  T$,  the 
four  possible  answers  are  stored  in 
A$,  and  the  number  of  the  correct 
answer  is  stored  in  B.  These  values 
are  in  arrays  to  keep  the  answers 
with  the  corresponding  questions. 

As  the  information  is  being  read 
in,  S$(I)  is  set  equal  to  A  for  use  as  a 
signal  so  questions  won't  be  repeat- 
ed during  the  quiz.  When  a  question 
X  is  printed,  S$(.X)  is  set  equal  to  "" 
(null).  Line  320  chooses  a  random 
number  X,  but  if  S$(X)  is  null,  the 
question  has  previously  been  used 
and  a  different  X  must  be  chosen. 
Line  350  prints  the  question. 

Lines  370-390  define  C(J)  for 
the  four  answers  to  mix  up  the  order 
in  which  the  answers  are  printed. 
Line  400  randomly  chooses  D  for 
the  correct  answer.  The  C  variable 
for  the  correct  answer  is  set  to  zero 
so  it  cannot  be  used  in  another  posi- 
tion. Lines  430-490  mix  up  the  or- 
der of  the  answers,  making  sure  the 
correct  answer  is  in  the  right  posi- 
tion and  each  answer  is  used  only 
once.  Lines  500-530  print  the  four 
answers  with  the  possible  choices  A, 
B,  C,  and  D. 

Lines  540-580  receive  the  stu- 
dent's answer,  making  sure  it  is  a 
letter  from  A  to  D,  and  then  print  the 
choice.  Line  590  checks  to  see  if  the 
key  pressed  is  the  correct  choice. 
Line  600  prints  the  message  for  an 
incorrect  answer,  then  prints  the 
correct  answer.  Line  620  prints 
CORRECT  for  a  correct  answer,  and 
line  630  increments  the  score,  SC. 
Lines  640-670  wait  for  the  student 
to  press  ENTER  before  going  to  the 
next  question. 

Lines  680-700  clear  the  screen, 
then  print  the  score. 

To  customize  the  test,  simply 
change  the  questions  and  answers  in 
the  DATA  statements,  making  sure 
you  have  enough  questions  for  a 
complete   quiz   and   that   the    last 


DATA  statement  contains  ZZZ  to 
signal  the  end.  You  might  also  pre- 
fer a  fancier  title  screen. 

Here  is  an  example  of  changing 
the  DATA  statements.  Suppose 
your  question  is  "In  which  year  did 
Columbus  discover  America?"  with 
the  possible  answers  1256,  1492, 
1776,  and  1812.  The  correct  answer 
is  in  the  second  posihon.  The  DATA 
statement  would  look  like  this: 

720  DATA  IN  WHICH  YEAR  DID 
COLUMBUS  DISCOVER  AMERICA? 
730  DATA  1256,1492,1776,1812,2 

If  you  want  to  save  typing  ef- 
fort, you  can  obtain  a  copy  of  this 
program  by  sending  a  cassette  or 
disk,  a  stamped,  self-addressed 
mailer,  and  $3  to: 

C.  Regena 
P.O.  Box  1502 
Cedar  City,  UT  84720 

Please  be  sure  to  specify  the  name 
of  the  program  and  that  you  need 
the  TI  version. 

Multiple  Choice  Test 

100  REM   MULTIPLE  CHOICE  TE 

STt5  SPflCES> 
110  CALL  CLEAR 
120  PRINT  "  ttttttt*t*tttttt 

tttttttttt" 
130  PRINT  "*    MULTIPLE  CHOI 

CE  TEST  »'■ 
140  PRINT  "Xtttttt* tttttt** 

tttttttttt" 
150  PRINT  : : i : : 
160  PRINT  "TEST  OF  20  QUEST 

IQNB" 
170  PRINT  :: "PRESS  LETTER  D 

F  CORRECT" 
1B0  PRINT  J "ANSWER  FOR  EACH 

QUESTION. " 
190  DIM  T« (30) , A» (30,4) , B<3 

0)  ,  S»  (30)  , ftflt (4) 
200  1=1 

210  READ  T»(I)  ,  ASd  ,  1  )  ,  A*  (  I 
,2) , A*f 1 ,3) , A* (1,4) , B ( I 
) 
220  IF  T«(I>="ZZZ"  THEN  260 
230  S«(I)-"A" 
240  1=1+1 
250  QDTO  210 
260  1=1-1 

270  PRINT  :i "PRESS  <ENTER> 
TO  START." 


zee 

CALL  KEY(0,K,S) 

2?0 

IF  K013  THEN  280 

300 

FOR  P=l  TO  20 

310 

RANDOMIZE 

320 

X=INT< I»RND)+1 

330 

IF  S«<X>=""  THEN  320 

340 

CALL  CLEAR 

350 

PRINT  T«(X)  1  I 

360 

S»(X)="" 

370 

FOR  J«=l  TO  4 

3S0 

CtJ) =1 

390 

NEXT  a 

400 

D-INT<4*RND>+1 

410 

AA*(D) =A*(X,B<X) ) 

420 

C(B(X) )=0 

430 

FOR  J=l  TO  4 

440 

IF  J=D  THEN  490 

450 

E=INT(4«RND) +1 

460 

IF  C(E>=0  THEN  450 

470 

AA«(J) =A«(X,E) 

4B0 

C(E)=0 

490 

NEXT  J 

500 

FOR  Js>l   TO  4 

510 

PRINT  CHR«  (64  +  J)  ;  ■' .   "  ;  A 

A«(J) 

520 

NEXT  3 

530 

PRINT  :: 

54  0 

CALL  SOUND(100, 1497, 2) 

550 

CALL  KEY(0,K,S) 

5&0 

IF  (K<65) +(K>6B) THEN  55 

0 

CALL  HCHAR<23,3,K> 

570 

580 

PRINT 

590 

IF  K=64+D  THEN  620 

600 

PRINT  "ND,  THE  ANSWER  I 

S  "jCHR« (64+D) ; " . " 

610 

GOTO  640 

620 

PRINT  "CORRECT" 

630 

SC-SC+1 

640 

PRINT  : "PRESS  <ENTER>." 

650 

CALL  KEY(0,K,S) 

660 

IF  K013  THEN  650 

670 

NEXT  P 

680 

CALL  CLEAR 

690 

PRINT  "OUT  OF  20  DUESTI 

ONS,  " 

700 

PRINT  "YOUR  SCORE  IS  "; 

SC! ! ! : 

710 

GOTO  1360 

720 

DATA  ONE  OF  THE  MAJOR  A 

TTRACTIDNSOF  A  COMPUTER 

IS  THAT  IT 

730 

DATA  HAS  ACTIVE  INVOLVE 

MENT,,IS  EXPENSIVE. , IS 

A  STATUS  SYMBOL. 

740 

DATA  ALLOWS  UNINVOLVEME 

NT.  ,  1 

750 

DATA  A  VIDEO  GAME  IS  BE 

STfa  SPACES>DESCRIBeD  A 

S  A  (N) 

760  DATA  EXPENSIVE  TOY.,SPE 
CIAL  PURPOSE  COMPUTER., 
HOME  COMPUTER. , EDUCATIO 
NAL  TOY. , 2 

770  DATA  THE  COMPUTER  OWES 
ITSC7  SPACES>FLEXIBILIT 
Y  TO  THE  FACT  THATIT  IS 

780  DATA  SMALL. , COMPLICATED 
. .PROGRAMMABLE. , AN  ELEC 
TRONIC  DEVICE. , 3 

790  DATA  "BECAUSE  A  COMPUTE 

R  IS<7  SPACESJPROGRAMMA 

BLE,  " 
800  DATA  IT  CAN  BE  USED  TO 

PERF0RMC3  SPACESIONLY  A 
LIMITED  NUMBER  OF 

<4  SPACES>FUNCTIONS. 
810  DATA  IT  CANNOT  BE  USED 

FDR{7  SPACESJEDUCATIONA 

L  PURPOSES. 
820  DATA  IT  CANNOT  BE  USED 

F0Rt7  SPACESJENTERTAINM 

ENT, 


830  DATA  IT  CAN  BECOME  A  GE 

NHRALtS  SPALtS>PURPOSE 

TOUL. ,4 
S40  DATA  THE  MAIN  ADVANTAGE 
OF  A{5  SFACtSJCOMPUTER 
AS  OPPOSED  TO 

<6  SPACESJOTHER  CALCULA 

TING  DEVICES{3  SPACES! I 

S  ITS 
B50  DATA  COST. .SIZE. , PORTAB 

ILITY. .PROGRAMMABLE  NAT 

URE. , 4 
B60  DATA  BOOKS  AND  MANUALS 

THAT{6  SPACES>ACCQMPANY 
A  COMPU lER-RELATEDPROD 

UCT  ARE 
870  DATA  SOFTWARE. , DOCUMENT 

ATIDN. , DATA. , COMPU-FORM 

S.  ,2 
880  DATA  VISICALC  IS  BEST  D 

ESCRIBED   AS  ACN) 
890  DATA  TUTORIAL  PROGRAM., 

ELECTRONIC  SPREADSHEET. 
900  DATA  EDUCATIONAL  PROGRA 

M. .ENTERTAINMENT  PROGRA 

M.  ,2 
910  DATA  ALL  OF  THE  FOLLOWI 

NG  AREC4  SPACES>PROBRAM 

MING  LANGUAGES  EXCEPT 
920  DATA  BASIC. , PASCAL. .VIS 

ICALC. , LOGO. , 3 
930  DATA  ONE  OF  THE  MAJOR  P 

ROBLEMS  INACQUIRING  COM 

PUTER  LITERACY  IS 
940  DATA  PEOPLE  NEED  TO  BE 

SKILLEDC3  SPACES>IN  MAT 

HEMATICS  TO  USE 

t7  SPACESJCOMPUTERS. 

950  DATA  THE  COMPUTER  IS  A 
VERY<6  SPACES>C0MPL1CAT 
ED  MACHINE. 

960  DATA  THE  FIELD  HAS  ITS 
0MN{7  SPACES>LEXICON  OR 
LANGUAGE. 

970  DATA  PEOPLE  NEED  A  BACK 
SR0UNDC4  SPACESMN  LOGI 
C  AND  STATISTICS. ,3 


980  D 
P 
U 
) 

990  D 
U 


ATA  THE  PARTS  OF  A  COM 
UTER  ARE  ARRANGED  IN  S 
CH  A  WAY  AS  TOFORM  A(N 


ATA  SYSTEM. .MACHINE. . S 
BSYSTEM. , ORGANIZATION, 

.  1 
1000  DATA  THE  PROCESSING  OF 
DATA  IN  A  COMPUTER  SY 

STEM  RESULTS  IN   THE  G 

ENERATION  OF 
1010  DATA  A  PROGRAM. , READDU 

TS.  .  INFORMATION.  , ST AT  I 

STICS. , 3 
1020  DATA  "BASICALLY,  A  COM 

PUTER  ISt4  SPACESJINTE 

NDED  TO  PRODUCE" 
1030  DATA  INFORMATION. , DATA 

., STATISTICS. . PROGRAMS 

■  ,1 
1040  DATA  THE  BASIC  FUNCTIO 
N  OF  ACS  SPACES>COMPUT 
ER  IS  TO  TRANSFORM 
DATA  PROGRAMS  INTO  DAT 


1050 
1060 

1070 
10B0 
1090 


DATA  DATA  INTO  PROGRAM 

S. 

DATA  INFORMATION  INTO 

DATA. 

DATA  DATA  INTO  INFDRMA 

TION. , 4 

DATA  "BY  USING  A  

-,  ONE  MAY   CONNECT  A 
COMPUTER  TO  THE 
{3  SPACES>TELEPHONe  TO 
PERMIT  COMPUTERCONFER 
ENCING. " 


1100  DATA  ADAPTER, CONNECTOR 
.CONFERENCE  LINK, MODEM 
,4 

1110  DATA  INTANGIBILITY  IS 

A  MAJ0R<4  SPACES>CHARA 

CTERISTIC  OF 
1120  DATA  SOFTWARE. .THE  COM 

PUTER. .HARDWARE. , MAGNE 

TIC  DISKS. , 1 
1130  DATA  THE  USE  TO  WHICH 

A  COMPUTER  IS  PUT  IS  C 

ALLED  A(N) 
1140  DATA  PROGRAM. .ROUTINE. 

.APPLICATION. (FUNCTION 

.,3 
1150  DATA  INSIDE  THE  COMPUT 

ERt9  SPACES} INFORMATIO 

N  IS  REPRESENTED   BY 
1160  DATA  PUNCHED  CARDS., EL 

ECTRONIC  SIGNALS. ,MAGN 

ETIC  TAPE. .MAGNETIC  DI 

SKS. , 2 
1170  DATA  THE  ON/OFF  PATTER 

N  THAT  IS   USED  IN  THE 
COMPUTER  IS  THE  BASIS 
OF  THE 
1180  DATA  CIRCUIT  CODE.. BIN 

ARY  CODE. .BINOMIAL  COD 

E.,BIDECIMAL  CODE. ,2 

1190  DATA  "WITH  TELECOMMUTI 

NG, t9  SPACES> INFORMATI 

ON  IS  MOST  COMMONLYTRA 

NSMITTED  BETWEEN 

t9  SPACES>TERMINALS" 
1200  DATA  BY  RADIO.. OVER  TE 

LEPHONE  WIRES. 
1210  DATA  VIA  SATELLITE. .BY 

TELEVISION. , 2 
1220  DATA  A  COMPUTER  PROGRA 

M  IS  AN<4  SPACES>EXAMP 

LE  OF 
1230  DATA  HARDWARE. . SOFTWAR 

E. .FIRMWARE. .FLEXWARE. 

>2 
1240  DATA  THE  FIRST  ELECTRO 

NICtB  SPACESJCDMPUTER 

WAS 
1250  DATA  ENIAC. .ENID. . IBM 

MARK  I., IBM  CYBERNAUGH 

T.,  1 
1260  DATA  THE  COMPUTER  IS  I 

NSTRUCTED   OR  TOLD  WHA 

T  TO  DO  BY 

1270  DATA  HARDWARE. .FIRMWAR 
E. .SOFTWARE. , SMARTWARE 
.,3 

12B0  DATA  THE  MOST  SIGNIFIC 
ANT  FACTOR  IN  PURCHASI 
NQ  A  COMPUTER  IS 


1290 


1300 


1310 

1320 
1330 

1340 

1350 
1360 


DATA 
AILA 
LABL 
BLE 
DATA 
COM 
OF  S 
t3  S 
ED  I 
ERS? 

DATA 
LE  ME 
DUCTO 
N  MEM 
DATA 
HEASU 

DATA 

APACI 

WER. 

DATA 

,  WORD 

DATA 

END 


RELATIVE  COST. , AV 
BLE  SOFTWARE. , AVAI 
E  HARDWARE. .AVAILA 
FIRMWARE. , 2 

WHICH  IS  THE  MOST 
M0N{4  SPACESJTYPE 
ECONDARY  STORAGE 
PACESJCURRENTLY  US 
N  PERSONAL   COMPUT 


FLOPPY  DISKS, BUBB 

MORY. ELECTRIC  CON 

RS, TUNNEL  JUNCTIO 

ORY.  1 

RAM  IS  USED  AS  A 

RE  OF 

PRIMARY  STORAGE  C 

TY. . PRDCESSINS  PO 

PROCESSING  SPEED. 

LENGTH. , 1 
ZZZ.Z.Z, Z,Z,0    Q 
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Housepainter 

Inverted  Video 
On  The  Commodore  64 


Jim  Butterfield,  Associate  Editor 


By  fooling  the  eye  with  reverse  charac- 
ters, you  can  make  a  single-colored 
object  appear  to  pass  over  a  multi- 
colored background— without  sprites 
or  machine  language.  The  technique 
can  also  be  adapted  to  the  VIC-20, 
Plus/4,  and  16. 


If  you've  ever  played  around  with 
video  effects  on  the  Con^modcre  64, 
you  know  that  ordinary  video  in- 
volves one  background  color  and  a 
choice  of  printing  colors.  In  other 
words,  you  can  print  green,  red,  and 
yellow  on  a  white  background,  but 
you  can't  go  the  other  way  and 
print,  say,  white  on  a  multicolored 
background.  However,  you  can  use 
an  easy  trick  to  get  the  same  effect. 

Here's  the  objective:  Assume 
you  want  to  move  an  object  over  a 
multicolored  background.  Maybe 
it's  a  small  black  bug  flying  over 
terrain  which  is  green  (grass),  blue 
(water),  and  white  (ice).  You  don't 
want  the  bug  to  change  color  as  it 
passes  these  areas;  it  must  stay 
black.  Yet  the  64  seems  to  be  set  up 
to  work  the  opposite  way.  The  fore- 
ground color  may  change  from  one 
character  cell  to  another,  but  the 
background  must  be  one  solid  color 
across  the  whole  screen. 

There  are  many  special  features 
you  could  use  to  get  around  this 
problem,  of  course.  Extended  color 
mode  allows  you  a  choice  of  back- 
grounds; it's  attractive  for  many 
uses  and  too  little  used  by  most 
programmers.  Sprites  may  be  placed 
anywhere  on  the  screen  over  exist- 
ing character  patterns,  giving  a 
color-over-coior  effect.  You  could 
even  use  a  split-screen  technique  to 
create  multiple  backgrounds. 

But  you  can  also  achieve  the 
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effect  without  resorting  to  special 
features.  To  invert  the  screen  effects, 
we  must  invert  our  thinking. 

Holes  In  The  Sky 

When  I  was  a  small  child,  I  used  to 
think  that  stars  were  tiny  holes  in  a 
black  curtain  that  covered  the  night 
sky.  In  other  words,  they  were 
points  of  light  shining  through.  I 
couldn't  tell  the  difference  between 
a  white  light  source  set  against  a 
black  background  and  a  white  back- 
ground shining  through  gaps  in  a 
black  foreground. 

That's  the  technique  we'll  use 
here.  Since  the  64  has  one  back- 
ground color  and  a  choice  of  many 
foreground  colors,  let's  flip  them 
over  to  create  one  "foreground" 
color  against  a  mixture  of  many 
"background"  colors.  We'll  have  to 
work  in  reverse  characters  to  switch 
background  and  foreground,  but 
that's  no  hardship. 

Let's  try  a  simple  example  pro- 
gram which  moves  a  white  letter  A 
over  a  multicolored  background: 

100  PRINT  CHR$(144);CHR$(147) 
110  POKE  53281,1 

This  clears  the  screen  (147)  and  sets 
the  colors — background  to  white 
(53281)  and  cursor  to  black  (144). 

120  FOR  J=0  TO  39 

130  POKE  1024+J,160 

140  POKE  55296+J,RND(l)*14+2 

150  NEXT  J 

This  POKEs  reverse  spaces  (160) 
into  the  top  line  of  screen  memory, 
and  puts  random  colors  into  color 
memory  beginning  at  55296.  Note 
that  we  need  reverse  space  charac- 
ters. Ordinary  spaces  would  show 
the  background  color  only,  but  the 
reversed  ones  show  the  random 
foreground  colors.  These  colors  will 


seem  to  be  background,  because 
they  won't  change. 

160  FOR  J=0  TO  38 
170  POKE  1024+J,160 
180  POKE  1025+J,129 
190  FOR  K=l  TO  100 
200  NEXT  K,J 

These  final  lines  move  the  white 
letter  A  from  left  to  right  across  the 
top  of  the  screen.  The  screen  code 
for  A  is  a  value  of  1,  but  the  program 
adds  128  to  get  a  value  of  129  for  a 
reverse  A.  As  the  A  moves  to  its  new 
position,  it  is  erased  from  its  old  spot 
by  POKEing  a  reverse  space  there 
(160). 

An  Optical  Illusion 

We  know  the  program  moves  a 
reverse  A  along  the  top  line  of  the 
screen.  And  we  know  that  each 
character  is  a  different,  random, 
color  as  we  print  it.  But  when  we 
enter  RUN  and  watch  the  program 
work,  we  see  a  white  A  moving 
across  the  top.  Why?  Because  we're 
really  seeing  the  white  background 
color  "peeking  through"  the  re- 
versed foreground.  The  optical  illu- 
sion is  complete:  A  single 
foreground  color  seems  to  be  mov- 
ing across  a  multicolored 
background. 

Let's  use  this  principle  in  a 
short  program  called  "House- 
painter."  It's  part  game,  part  puzzle, 
and  part  coordination  exercise.  You 
have  five  minutes  to  paint  the 
house,  using  the  four  special  func- 
tion keys  to  move  the  brush.  You  are 
not  allowed  to  paint  over  any  area 
twice,  so  be  careful  and  plan  your 
work.  By  the  way,  it  is  possible  to 
succeed,  although  you  may  have  a 
lot  of  trouble  at  first. 

The  program  is  entirely  in 
BASIC,  which  accounts  for  the  delay 


We  wrote  the  book  on  the... 


First  there  was  the  fabulously 
successful  VIC-20.  Then  came 
the  record-breaking 
Commodore-64. 


Now  Jack  Tramiel  has  launch- 
ed his  third  home  computer, 
the  ATARI  STJ^^i^^ 

The  ST  promises  to  shatter  all 
existing  price-performance  bar- 
riers and  become  a  leader  in 
the  home-computer  market. 

This  book,  PRESENTING  THE 
ATARI  ST  gives  you  an  in- 
depth  look  at  this  sensational 
new  computer  that  promises  to 
bring  you...  "Power  without  the 
Price."  Some  of  the  topics  in- 
clude: •  History  of  Atari 

•  Overview  of  the  ST  •  Con- 
struction, Operating  System 

•  Peripherals  •  Languages 

•  User  Programs,  and  more. 

Price  $16.95 


PRESENTING  THE 


An  in-depth  look  at  the  sensational  new 
computer  that  promises  to  bring 
you. .."Power  without  Price" 


Available  June  1st  Call  for  the  name  of  your  nearest  dealer 


Abacus 


jliiii^^kH 


Softwar 


■i'>>';yrv/*')| 


P.O.  Box  7211  Grand  Rapids,  Mi  49510  For  Fast  Service  Call  (616)  241-5510 


as  it  sets  up  the  screen.  The  house  is 
drawn  with  several  rectangles  de- 
fined in  DATA  statements.  Note 
that  the  characters  showing  the  time 
in  the  upper  left  of  the  screen  seem 
normal,  but  are  really  in  reverse  vid- 
eo. The  white  is  the  background 
color  peeking  through.  Similarly, 
the  white  paint  itself  and  the  circular 
brush  are  really  background  colors. 
That's  how  the  white  brush  can 
move  inside  a  red  shed  and  across  a 
yellow  house:  It's  inverted  video, 

Housepainter 

Please  refer  to  "COMPUTE! 's  Guide  to  Typing  in 
Programs"  before  entering  this  listing. 

100  PRINT  "{CLRS (DOWNiHOUSEPAI 
NTER{2  SPACESl-{2  SPACES3j 
IM  BUTTERFIELD"    : rem  228 

110  PRINT  "[3  SPACES }TRY  TO  PA 
INT  THE  HOUSE  USING  THE 

: rem  43 

120  PRINT  "FUNCTION  KEYS  TO  MO 
VE  THE  BRUSH.        : rem  81 

130  PRINT  "(3  SPACESlYOU'RE  NO 
T  ALLOWED  TO  PAINT  OVER 

: rem  82 

140  PRINT  "AN  AREA  ...  SO  DON' 
T  PAINT  YOURSELF   : rem  105 

150  PRINT  "INTO  A  CORNER. 

:rem  183 


160 


170 


1S0 


190 

200 
210 
220 
230 
240 
250 
260 
270 
300 


310 

320 
330 

340 
350 

360 

370 
380 
390 
400 

410 
420 


PRINT  "(3  SPACES) YOU  HAVE 
(SPACE] FIVE  MINUTES. 
{2  SPACES) LEAVE  THE: rem  50 
PRINT  "PAINT  BRUSH  IN  THE 
[SPACE] RED  SHED  WHEN 

:rem  240 
PRINT  "YOU'RE  FINISHED. 
{2  SPACES) PRESS  ANY  KEY  TO 
GO.  :rem  64 

FOR  J=l  TO  1E4:GET  X?:IF  X 
$=""  THEN  NEXT  J  : rem  154 
DATA  3,0,24,0,39  :rem  193 
DATA  7,10,20,10,30  : rem  27 
DATA  7,8,9,15,18  : rem  213 
DATA  3,15,17,13,15  : rem  42 
DATA  3,16,1(3,25,27  :rem  51 
DATA  3,17,20,19,21  : rem  43 
DATA  2,18,20,31,3  3  :rem  41 
DATA  -1  :rem  17 

PRINT  CHR5(159) ;CHRS( 147) ; 
"WAIT";CHR5(142) rCHR5(8)  :P 


OKE  53281,1         ; 
C0=55296tS0=1024 
REM  : 

READ  C;IF  C<0  GOTO 

READ  V1,V2,H1,H2 


rem  160 
: rem  16 
rem  121 
400 

:rem  58 
: rem  5  7 


FOR  J=V1*40  TO  V2*40  STEP 
f SPACE) 40  :rem  116 

FOR  X=C0+J+H1  TO  C0+J+H2 

:rem  209 


POKE  X,C 
NEXT  X,J 
GOTO  3  30 


: rem  144 
:rem  168 
srem  107 


FOR  J=S0+4  TO  S0+999:POKE 
(SPACE 3 J, 160: NEXT  J: rem  25 
FOR  J=C0  TO  C0+999  : rem  98 
IF  (PEEK(J}AND15)=7  THEN  N 
=N+1  :rem  71 


430 
440 
450 
460 

470 
480 
490 

500 

510 
520 

530 

5  40 

550 

560 

570 

580 
590 
600 

610 
620 

630 

640 
650 

660 

670 
680 


NEXT  J  :rem  32 

TI5="000000"  :rem  250 
V=19!H=3Z  :rem  186 

POKE  V0*40+H0+S0,160 

:rem  241 
POKE  V*40+H+S0,209;rem  150 
V0^Vzn0=U  :rem  236 

PRINT  CHR$(19) rCHR$(lB);TI 
$  :rem  216 

IF  TI5>"000499"  GOTO  680 

: rem  116 
K=PEEK(203)  :rem  41 
GET  KS :K1=ASC(KS+CHR$(0) ) 

: rem  2  9 
IF  Kl=133  THEN  Vl=-1 

:rem  200 
IF  kl=il34  THEN  Hl=-1 

:rem  188 
IF  Kl=135  THEN  Hl=l 

:rem  145 
IF  Kl=136  THEN  Vl=l 

:rem  161 
IF  K<64  GOTO  590  : rem  243 
V1=0:H1=0  :rem  177 

V=V0+V1 :H=H0+H1  :rem  68 
P=C0+V*40+H:IF  P=P9  GOTO  4 
90  trem  205 

C=PEEK(P)AND15  : rem  22 
IF  C<>7  AND  G<>2  GOTO  490 

:rem  179 
IF  C9=7  THEN  POKE  P9,1:N=N 
-1  :rem  205 

P9=P:C9=C  :rem  2  30 

IF  Co  2  OR  N>0  GOTO  460 

: rem  73 
WINNERl  "   srem  97 

srem  116 
YOU  MISSED", •STR$(N 


PRINT 

END 

PRINT 

),-"    SQUARES' 


:rem    203 , 


(ALMOST) 

FREE 
CLUES: 


If  you've  ever  been  stuck  in  an  adventure  game,  you  need 
The  Book  ot  Adventure  Games  by  Kim  Schuette.  This 
fantastic  book  contains  complete  legible  (typeset)  maps, 
magnificent  illustrations,  and  all  the  hints  you  need  to 
complete  77  of  the  all-time  most  popular  adventure  games 
including  Zork  I,  II,  Nl,  Deadline,  Starcross,  Witness, 
Planetfall,  Enchanter,  Sorcerer,  Infidel,  Suspended  (with 
map).  Wizardry,  Knight  of  Diamonds,  Legacy  of 
Llylgamyn,  All  Scott  Adams,  All  Sierra  On-Line  including 
Time  Zone,  Ultima  t,  II,  ill  and  many  more!  Best  of  all,  the 
book  doesn't  spoil  your  fun!  At  about  25e  an  adventure,  it's 
the  biggest  bargain  around-  So  stop  getting  ripped  off  by 
$10  cluebooks  and  call: 

1-(800)-821-5226  Ext.  500 

24  hrs.  a  day,  7  days  a  week 

or  write: 

Witt's  End 

42  Morehouse  Rd..  Dept.    12 

Easton,  CT  06612 

Free  UPS  shipping.  Add  S3.00  lor  C.O.D.  APO's  FPO's  o.fr.  Add 
$5,00  for  foreigr]  shipping.  No  charge  for  credit  cards.  We  accept 
Visa/lilastercard.  Personal  Check  (allow  2  weeks  to  clear),  Certified 
Cheek  or  money  order. 

All  Trademarks  are  acknowledged. 
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Program  Your  Own  EPROMS 


$99.50 


^  VIC  20 
^C64 

PLUGS  INTO  USER  PORT 
NOTHING  ELSE  NEEDED. 
EASY  TO  USE.  VERSATILE. 

•  Read  or  Program.  One  byte  or 
32K  bytes! 

OR  Use  like  a  disk  drive.  LOAD. 
SAVE,  GET  INPUT  PRINT,  CMD, 
OPEN,  CLOSE— EPROM  FILESI 

Our  software  lets  you  use  familiar  BASIC  commands  to 
create,  modify,  scratoti  files  on  readily  available  EPROM 
chips.  Adds  a  new  dimension  lo  your  computing  capability. 
Works  with  most  ML  Monitors  too. 

•  Make  Auto-Start  Cartridges  of  your  programs. 

•  The  promenade'"  CI  gives  you  4  programming  voltages, 
2  EPROM  supply  voltages,  3  intelligent  programming 
algorithms,  15  bi!  chip  addressing,  3  LED's  and  NO 
switches.  Your  computer  controls  everything  from  software! 

•  Textool  socket.  Anti-static  aluminum  housing. 

•  EPROMS,  cartridge  PC  boards,  etc.  at  extra  charge. 
Some  EPROM  types  you  can  use  with  the  promenade' 


27M  2532 

2616  2732 

2716  27C32 

27C16  2732A 


462732P 
2564 
2764 
27C64 


27128 
27256 
63764 
68766 


5133 
5143 
2815- 
2816- 
■D*noles  i>:«c1ti&iJ^  eraj«abl  1vp«> 


X2816A- 

52813" 

4a016P" 


Call  Toll  Free:  800-421-7731 
In  California:  800-421-7748 


EB 


I  1  JASON-RANHEIM 

580  Parrott  St.,  San  Jose,  CA  95112 


S3 


VIDEO  BASIC-64  •  ADD  50+  graphic  and 
sound  commands  lo  your  programs  with  this  super 
development  package.  You  can  distribute  free  RUN- 
TIME version  without  paying  royalties! 
ISBN#  0-916439-26-7  S59.95 

BASIC  COMPILER  64  -  compiles  the 
complete  BASIC  language  into  either  last  6510 
machine  language  and/or  compact  speedcode.  Get 
your  programs  into  high  gear  and  protect  them  by 

f:ompiling. 
SBN#  0-916439-17-8  $39.95 

MASTER>64  -  professional    development 
package   for  serious   applications.   Indexed   file 
system,  full  screen  management,  programmer's 
aid,  BASIC  extensions.  100  commands. 
ISBN*  0-916439-21-6  S39.95 

PASCAL-64  •  full  Pascal  with  extensions  for 
graphics,  sprites,  file  management,  more.  Compiles 
to    6510    machine    code    and    can    link   to 
Assembler/Monitor  routines. 
ISBN*  0-916439-10-0  $39.95 


ADA  TRAINING  COURSE  ■  teaches 
you  the  language  of  the  future.  Comprehensive 
subset  of  the  language,  editor,  syntax 
checker/compiler,  assembler,  disassembler,  120+ 
page  guide 
ISBN#  0-916439-15-1  $59.95 

FORTH-64  -  loaded  with  hires  graphics,  com- 
plete synthesizer  control,  full  screen  editor,  pro- 
grammmg  tools,  assembler. 
ISBN  0-916439-32-1  $39.95 

C  LANQUAQE  COMPILER  •  a  full  C 
language  compiler.  Conforms  to  the  Kernighan  & 
Ritchie  standard,  but  withiouttiit  fields.  Package  in- 
cludes editor,  compiler  and  linker. 
ISBNlf  0-916439-26-3  $79.95 

ASSEMBLER     MONITOR-64  -  a 

macro  assembler  and  extended  monitor  package. 
Assembler   supports   floating   point   constants. 
Monitor  supports  bank  switching,  quick  trace,  single 
step,  more. 
ISBN#  0-916439-11-9  $39.95 


XREF-64  -  indispensible  tool  for  BASIC  pro- 
grammer cross-references  all  references  to  variable 
and  line  numbers. 
IS8N#  0-916439-27-5  t17.95 

OTHER  TITLES  ALSO  AVAIL- 
ABLE -  WRITE  OR  CALL  FOR  A 
FREE  COMPLETE  CATALOG 

Call  today  for  the  name  and  address  of 
your  nearest  local  dealer. 

PHONE:  (616)  241-5510 

For  postage  and  handling  include  $4.00 
($8.00  foreign)  per  order.  Money  order  and 
checks  in  U.S.  dollars  only,  filastercard, 
VISA  and  American  Express  accepted, 
fvlichigan  residents  ^  1 
inci  4%  sales  tax.      ^M^ 


FREE  PEEKS  &  POKES  WALL 
POSTER  INCLUDED  WITH 
EVERY  SOFTWARE  PURCHASE 


You  Can  Count  On 


iiiii^*^^*^ 


\mmm\ 


Software 


P.O.  Box  7211  Grand  Rapids,  Ml  49510  ■  Telex  709-101  -  Phone  616/241-5510 


BASIC  File  Editor  For  Commodore 


Henry  A.  Doenlen 


Edit  ASCII  files  in  the  form  of  num- 
bered BASIC  lines  with  this  short  util- 
ity for  the  Commodore  64:  and  VIC-20. 


One  of  the  best  features  of  any  Com- 
modore computer  is  its  BASIC  line 
editor.  By  using  the  insert,  delete, 
and  cursor  control  keys,  you  can 
easily  move  the  cursor  anywhere  on 
the  screen  and  edit  a  BASIC  pro- 
gram without  having  to  retype  en- 
tire lines. 

Unfortunately,  ASCII  data 
files — files  of  characters  such  as 
those  produced  by  many  word  pro- 
cessor or  database  management  pro- 
grams— are  not  so  easy  to  edit.  To 
change  one  data  item  in  a  file,  you 
must  either  rerun  the  program  that 
produced  the  file,  or  write  another 
program  that  reads  the  file,  makes 
the  change  you  want,  and  writes  the 
file  back  to  disk  or  tape.  Both  op- 
tions are  time-consuming. 

Disguising  ASCII  As  BASIC 

Although  the  Commodore  BASIC 
editor  is  not  designed  to  edit  such 
files,  you  can  make  it  do  the  job  with 
a  simple  trick:  Disguise  the  ASCII 
data  as  a  collection  of  BASIC  lines 
by  adding  line  numbers  and  quota- 
tion marks.  For  example,  enter  this 
line: 

10  'TM  REALLY  ASCII  DATA" 

You  can't  execute  this  line  in  a 
program,  of  course,  without  getting 
an  error.  But  the  BASIC  editor  can 
handle  it  with  ease,  letting  you  add 
or  delete  characters,  change  the  line 
number,  or  relist  the  line.  "BASIC 
File  Editor"  uses  this  trick  to  let  you 
edit  ASCII  files,  adding  artificial  line 
numbers  and  quotation  marks  when 
it  loads  a  file  into  memory,  and  de- 
leting them  when  the  file  is  resaved. 

Type  in  BASIC  File  Editor  and 
save  it.  If  you  are  using  a  Commo- 
dore 64  or  VIC-20  with  a  disk  drive, 
enter  the  program  exacdy  as  it  is 
listed.Tape  users  should  omit  lines 
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5,  220,  and  360-387,  change  the  42 
in  line  350  to  35,  and  change  the 
following  lines  as  shown: 

110  PRINT" (DOWN) LOAD  FILE"tINP 

UTF5  :rem  23  2 

120  CLOSEl!OPENl,l,0,F5:rem  38 

230  CLOSEl :OPESl,l,l,F$:rem  41 

Before  editing  an  important  file, 
you  may  want  to  practice  on  a  test 
file.  This  five-line  program  makes  a 
test  file  for  you  (tape  users  should 
change  the  8  in  line  10  to  a  1): 

10  0PENl,a,l, "@0:ASCTEST,P,W" 
20  PRINT#1, "THIS  PROGRAM  HAKES 

30  PRINT#1, "ASCII  DATA  LOOK" 
40  PRIKT#1, "LIKE  BASIC  LINES." 
50  CLOSEl 

After  making  the  test  file,  load 
and  run  BASIC  File  Editor.  The 
menu  offers  four  options:  You  can 
press  L  to  load  a  file,  S  to  save  a  file, 
C  to  clear  data  from  memory,  or  E  to 
list  your  data  and  exit  the  program. 
To  load  the  test  file,  press  L,  then 
type  ASCTEST  when  prompted  for 
the  filename,  (Disk  users  should 
then  enter  P  to  indicate  that 
ASCTEST  is  stored  as  a  program 
file,  as  indicated  by  the  ,P  in  line  10.) 
After  the  main  menu  reappears, 
press  E  to  list  the  data  and  return  to 
immediate  mode. 

Editing  Your  Data 

As  you  can  see,  the  ASCTEST  data 
is  spliced  onto  the  end  of  BASIC  File 
Editor  in  the  form  of  numbered  pro- 
gram lines.  The  data  lines  can  be 
edited  like  any  other  BASIC  lines. 
Try  making  some  changes.  To  add 
new  data  at  the  end  of  the  file,  enter 
new  lines  with  higher  line  numbers. 
Use  intermediate  line  numbers  to 
insert  new  data  between  existing 
lines.  Don't  forget  that  the  data  in 
each  line  must  be  enclosed  in  quota- 
tion marks. 

When  you're  done  editing,  en- 
ter RUN  to  reenter  the  File  Editor 
program  and  press  S  to  resave  the 


file.  Again  you'll  be  prompted  to 
enter  a  filename.  If  you  are  using  a 

disk  drive,  do  not  use  the  same  file- 
name (ASCTEST)  unless  you  want 
the  revised  file  to  replace  the  origi- 
nal file.  If  you  use  a  different  file- 
name, a  new  file  is  created.  Of 
course,  if  you  are  using  tape  you 
must  also  be  careful  to  rewind  the 
cassette  if  you  want  the  old  file 
erased,  or  be  careful  not  to  overwrite 
the  old  copy  if  you  want  it  preserved. 

Now  press  C  to  clear  the  data 
area,  and  L  to  load  your  new  file. 
After  it  loads,  press  E  to  verify  that 
the  changes  were  successful.  If  you 
had  not  pressed  C,  the  new  file 
would  have  been  appended  to  the 
data  already  in  memory.  This  makes 
it  easy  to  append  one  file  to  another. 

You  should  avoid  using  RUN/ 
STOP  or  RUN/STOP-RESTORE  to 
break  out  of  the  program.  Always 
exit  by  pressing  E  at  the  menu,  or 
important  memory  pointers  will  be 
left  scrambled.  If  you  do  break  out, 
rerun  the  program,  then  do  a  load 
followed  by  a  clear  before  attempt- 
ing any  further  editing. 

When  A  Program  Isn't  A 
Program 

For  tape  users,  there's  only  one  sim- 
ple way  to  store  ASCII  data:  as  a 
tape  data  file.  Hence,  the  tape  ver- 
sion of  the  File  Editor  program 
works  only  with  such  files.  How- 
ever, disk  users  have  greater  flexibil- 
ity in  choosing  a  file  type. 

The  most  common  format  for 
character  data  storage  on  disk  is  the 
sequential  file.  Such  files  are  easy  to 
create:  Simply  OPEN  1, 8,1,  "filename, 
S,W"  (the  final  ,S,W  indicates  that 
the  file  called  filename  is  to  be  a 
Sequential  file  open  for  Writing). 
Then  use  PRINT*  1  to  write  the  de- 
sired data  to  the  file  and  CLOSE  1 
when  finished.  Such  files  will  show 
up  in  the  disk  directory  as  SEQ. 
However,  it's  also  possible  to  store 
the  data  in  a  program  file.  The  pro- 


cedure  is  the  same  as  for  sequential 
files,  except  that  the  ,S,W  in  the 
OPEN  statement  is  changed  to  ,P,W 
(where  the  P  indicates  a  program 
file).  Otherwise,  you  still  use 
PRINT*  to  write  data  to  the  file,  as 
illustrated  in  the  ASCTEST  file  cre- 
ated in  the  example  above.  There 
are  several  advantages  to  storing 
data  in  program  file  format.  For  ex- 
ample, with  careful  planning  the 
program  file  of  ASCII  data  can  be 
retrieved  with  LOAD,  which  is  sig- 
nificantly faster  than  using  GET#  or 
INPUT#.  You  may  only  rarely  en- 
counter ASCII  data  stored  in  pro- 
gram files,  but  the  File  Editor 
program  can  handle  it  in  case  you 
do. 

Although  BASIC  File  Editor  al- 
lows you  to  edit  ASCII  data  stored  in 
program  files,  it  does  not  allow  you 
to  edit  BASIC  programs  stored  in 
program  files.  While  the  file  type  is 
the  same,  all  the  BASIC  keywords  in 
a  program  are  represented  in  the 
disk  program  file  as  single  charac- 
ters called  tokens,  which  appear  as 
reverse-video  characters.  Moreover, 
changes  which  affect  the  length  of 
any  program  lines  will  cause  the 
edited  program  to  crash  when  load- 
ed and  run.  Also,  the  File  Editor  can 
only  be  used  to  edit  ASCII  data  files, 
which  means  it  is  not  directly  com- 
patible with  some  database  and 
word  processing  programs — includ- 
ing COMPUTEi's  SpeedScript  word 
processor — which  store  characters 
as  their  Commodore  screen  code 
values  rather  than  as  ASCII  values. 
{SpeedScript  does  allow  you  to  print 
an  ASCII  file  to  disk,  which  could 
then  be  edited.) 

It  is  possible  to  use  the  File 
Editor  to  load  ASCII  data  from  pro- 
gram files  and  store  it  into  sequen- 
tial files,  and  vice  versa.  However, 
in  this  case  the  replace  feature  will 
not  function  properly.  That  is,  you 
cannot  use  the  same  filename  for  the 
edited  file  if  you  are  storing  it  as  a 
different  type  from  the  original. 

Customizing  The  Editor 

BASIC  File  Editor  works  best  with 
ordinary  alphanumeric  data  (letters 
and  numbers),  such  as  you  might 
find  in  a  word  processing  file.  Car- 
riage return  characters  (CHR$(13)) 
are  interpreted  as  separators.  When 
BASIC  File  Editor  finds  a  carriage 
return  while  loading  the  file,  it  ter- 
minates the  current  data  line  and 


begins  a  new  one. 

It  should  not  be  difficult  to  cus- 
tomize this  program  for  your  own 
particular  needs.  Before  doing  so, 
however,  look  at  line  350.  The  FOR- 
NEXT  statement  sets  up  a  loop  that 
counts  through  the  lines  of  the  pro- 
gram (42  for  disk  or  35  for  tape).  If 
you  add  or  delete  any  lines  in  the 
File  Editor  program,  you'll  need  to 
change  this  value  from  35  or  42  to 
whatever  is  appropriate. 

BASIC  File  Editor 

Please  refer  to  "COMPUTEI'S  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 

5  OPEN15,a,15         :rem  195 

10  PRINT  "tCLR][3  SPACESlBASIC 
FILE  EDITOR  (DOWNJ " i rem  31 

20  PRINT  "{HOME} {2  DOWNlSELECT 
OPTION: "  :rem  59 

30  PRINT  "  L=LOAD  FILE":PRINT" 
S=SAVE  PILE": PRINT"  C=CLEA 
R"!PRIKT"  E=EXIT/LIST" 

: rem  11 

40  GETA$rIFA?=""THEN40:rein  235 

50  IFA$="E"THEKCLOSE15:LIST39a 
-:END  :rem  122 

60  F0RC=1T03:IPA5=HID5("LSC",C 
, 1 )THENONCGOSUB80, 210, 300:G 
OTO10  :rem  201 

70  NEXTC:GOTO20        : rem  190 

80  POKE45,PEEK(5S) :P0KE46,PEEK 
(56)-l :GOSUB340:L=PEEK(44)* 
256+PEEK(43)         :rem  11 

90  IFPEEK(L)+PEEKCL+1 )=0THEN1I 
0  :rem  49 

100  N=PEEK(L+3)*256+PEEK{L+2): 
L=PEEK(L+1)*256+PEEK(L) :G0 
TO90  :rem  190 

110  PRINT" [DOWN] LOAD  FILE":INP 
UTFSiPRINT" f DOWNlPROGRAM  0 
R  SEQUENTIAL{'2  SPACES  )(P/S 
) " : INPUTT?  : rem  29 

120  CLOSE 1 :0PEN1,8,2,FS+", "+T9 
+", R" :GOSUB360 : IFFL=1THEN1 
0  srein  6 

130  A=L:T=PEEK(46)*256+PEEK(45 
)-10  :retp  104 

140  L=A!A=A+3:N=N+10:POKEA,N/2 
56:POKEA-l,N-PEEK(A)*256:A 
=A+1:P0KE  A, 34       : rem  4 

150  A=A+1:GET#1,C$:D=ASC(CS+CH 
R$(0)):IF  D<>13ANDA<TTHENP 
OKEA,DiGOTO150      : rem  80 

160  POKEA, 34:POKEA+1,0:A=A+2:P 
OKEL+l,A/256:POKEL,A-PBEK( 
L+l)*256  :rem  208 

170  IFST=0ANDA<TTHEN140 

:  rent  163 

180  IFA>=TTHENPRINT"OUT  OF  MEM 
DRY"  :rem   158 

190  POKEA,0jPOKEA+l,0:A=A+2rPO 
KE4,A/256:POKE  3,A-PEEK(4) 
*256  :rein    155 

200    GOSUB330ICLOSE    1: RETURN 

: rem    163 

210  GOSUB350!PRIKT"{DOWN]SAVE 
E  SPACE ) FILE " : INPUTF$ 

: rem  74 

220  PRINT" (DOWNlPROGRAH  OR  SEQ 
UENTIAL|2  SPACES) (P/S)":IN 
PUTT?  ! rem  143 

230  CLOSE1:OPEN1,8,2,"@0: "+F$+ 
",  '■+T5+",W":GOSUB360:IFFL= 
1THEN10  :rem  38 


240  IFPEEK(A)+PEEK(A+1)=0THENC 

L0SE1:RETURN  : rem  119 
250  A=A+3  :rem  180 

260  A=A+1 :IFPEEK(A)=0THENPRINT 

#1, "":A=A+1:GOTO240 

:rem  126 
270  IFPEEK(A)<>34THEN260 

: rem  135 
280  A=A+1 :IFPEEK(A)=34THEN260 

: rem  16  0 
290  PRINT#1,CHR?(PEEK{A) ) ; :GOT 

0280  :rem  249 

300  PRINT"CLEAR":GOSUB350!POKE 

A, 0 : POKEA+1 , 0 :A=A+2 

:rem  219 
310  POKE4,A/256:POKE3,A-PEEK{4 

)*256  "  ■  :rem  215 
320  GOSUB3  30: RETURN  : rem  197 
330  POKE46,PEEK(4) :POKE45,PEEK 

(3)  : rem  172 

340  POKE47,PEEK(45) :P0KE48,PEE 

K(46) :POKE49, PEEK(45) : POKE 

50, PEEK ( 46 ): RETURN: rem  242 
350  A=PEEK(44)*256+PEEK(43) :F0 

RN=1T042 :A=PEEK(A+1)*256+P 

EEK ( A ) : NEXTN : RETURN 

: rem  254 
360  PRINT:POKE198,0!lNPUT#15,A 

$,B$,C5,D$  :rem  42 

370  IFB5="OK"THENFL=0: RETURN 

! rem  242 
380  PRINTA?"  "B5"  "C?"  "D9"  ": 

FL=1; PRINT"! DOWN JHIT  WfY  K 

EY":A5=""  :rem  254 

385  GETA5:IFAS=""THEN385 

:rem  99 
387  RETURN  :rem  130 

390  REM=-====  FILE  FOLLOWS  === 

=======         :rem  150  @ 
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LEARN  ITALL,.,1BM,  APPLE.  COMMODORE,  TRS  ami  MORE! 
Whether  or  not  you  have  your  own  computer,  our 
independent  study  program  shows  you  step-by-step 
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Page  Flipping  On  The  Atari 


Cloy  Stuart 


Page  flipping  is  an  animation  tech- 
nique in  which  entire  screens  can  be 
flashed  in  rapid  sequence,  much  like 
flipping  through  the  pages  of  a  book. 
This  makes  possible  some  amazing 
graphics  displays.  The  article  includes 
two  demonstration  programs  (one  for 
computers  with  as  little  as  16K  RAM, 
and  another  for  machines  with  at  least 
48K).  The  programs  work  on  the 
400/800,  XL,  and  XE  models. 


Animation  is  any  sequence  of  events 
that  creates  the  illusion  of  motion. 
Note  the  phrase  illusion  of  motion: 
no  actual  motion  is  required.  For 
example,  consider  the  lights  on  a 
movie  marquee,  stadium  score- 
board, or  message  board.  When  the 
lights  are  flashed  in  sequence,  they 
produce  the  illusion  of  motion,  al- 
though the  bulbs  themselves  are 
stationary. 

Movies  and  cartoons  work  on 
the  same  principle.  They  consist  of  a 
series  of  still  pictures,  each  slightly 
different  than  the  one  before  it. 
When  the  pictures  are  projected  in 
rapid  succession,  we  perceive  mo- 
tion. The  same  principle  can  be  ap- 
plied to  computers,  except  that  few 
computers  can  draw  high-resolution 
screens  fast  enough  to  fool  the  eye. 
The  answer  is  a  special  program- 
ming technique  known  as  screen 
flipping  or  page  flipping.  Screens  are 
drawn  beforehand  and  stored  in 
memory,  then  displayed  one  after 
the  other  in  an  instant, 

ANTIC  And  Display  Lists 

By  now,  many  of  you  are  well  ac- 
quainted with  the  Atari  ANTIC 
chip,  display  lists,  and  how  Atari 
computers  display  screen  images. 
Many  articles  and  books  have  been 
published  on  this  subject.  However, 
a  quick  overview  will  be  helpful 
here. 

Besides  the  6502  microproces- 
sor, the  Atari  also  contains  a  special 
chip  known  as  ANTIC.  ANTIC  is  a 
true  microprocessor  with  its  own  in- 
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struction  set,  and  it  is  in  charge  of 
displaying  all  screen  data.  The  pro- 
gram that  instructs  ANTIC  is  called 
a  display  list.  The  display  list  is 
merely  a  list  of  instructions  that  lo- 
cates screen  memory  for  ANTIC  and 
tells  it  which  graphics  mode  to  dis- 
play. The  starting  address  of  the  dis- 
play list  is  stored  in  the  customary 
low  byte/high  byte  form  at  memory 
locarions  560  and  561.  To  find  the 
starting  address  of  the  display  list  in 
any  graphics  mode,  type  the  follow- 
ing line  in  immediate  mode: 

GR.[mode]:DL  =  P^I.K 

(560)4- 256*PEEK(561);PRINT  DL 

where  [mode]  is  the  graphics  mode 
number.  This  line  can  also  be  in- 
cluded in  a  program  to  store  the 
display  list  address  in  the  variable 
DL. 

Screen  Memory  And 
Pointers 

While  display  lists  differ  greatly,  de- 
pending on  the  graphics  mode,  one 
thing  is  always  certain.  The  fifth  and 
sixth  bytes  of  the  display  list  contain 
the  low  and  high  bytes  of  the  start- 
ing address  of  screen  memory.  To 
find  the  starting  address  of  screen 
memory  in  any  graphics  mode,  use 
this  line: 

GR.[moilej:Dt  =  PEEK 

(560)  +  256*PEEK(561):ST  =  PEEK 

(DL  +  4)  +  2S6*PEEK(DL-l-5):PRINT  ST 

Remember  that  when  indexing 
within  a  list,  you  start  counting  at 
zero.  That's  why  the  fifth  element  of 
the  display  list  ,is  calculated  at 
DL+4  and  the  sixth  at  DL  +  5.  These 
two  bytes  together  are  called  a 
pointer.  As  ANTIC  scans  the  display 
list,  these  two  bytes  point  ANTIC  to 
the  start  of  the  screen  memory. 

The  use  of  pointers  is  called 
indirection.  Indirection  can  be  a  very 
powerful  tool,  and  thanks  to  the 
foresight  of  Atari's  engineers,  it 
makes  page  flipping  possible  on 
Atari  computers.  Some  other  com- 
puters reserve  an  area  of  memory 
that  is  dedicated  entirely  to  the  vid- 
eo display.  To  display  a  new  screen- 


ful of  data,  the  entire  screen  must  be 
redrawn.  This  requires  the  high 
speeds  of  machine  language,  and  at 
best  is  a  complicated  and  time- 
consuming  project.  Through  the  use 
of  pointers  and  indirection,  the  Atari 
avoids  these  complications. 

By  simply  POKEing  new  values 
into  the  screen  memory  pointer  in 
the  display  list,  any  area  of  memory 
can  be  instantly  displayed  on  the 
screen.  There  is  only  one  important 
rule  to  follow.  To  avoid  garbled  dis- 
plays, screen  memory  should  not 
cross  a  4K  memory  boundary — that 
is,  any  address  evenly  divisible  by 
4096. 

There  is  a  way  around  this 
problem,  but  there's  no  room  to  ex- 
plain it  in  detail  here.  However,  you 
should  note  that  it's  impossible  to 
flip  pages  in  GRAPHICS  8  without 
taking  this  problem  into  account. 
Because  GRAPHICS  8  uses  about 
8K  of  screen  memory,  the  screen 
always  crosses  a  4K  boundary.  For 
now,  it's  probably  best  to  experi- 
ment with  page  flipping  in  graphics 
modes  0  through  7,  which  use  less 
than  4K  of  screen  memory.  With 
careful  planning,  screen  memory 
need  never  cross  a  4K  boundary  in 
these  modes. 

Setting  Up  Page  Flipping 

To  implement  page  flipping,  you 
must  first  calculate  the  starting  ad- 
dress of  the  area  of  memory  you 
wish  to  display.  (You'll  have  to  de- 
termine how  much  memory  to  set 
aside  depending  on  the  number  of 
pages  you  want  to  flip,  how  much 
RAM  is  installed  in  your  machine, 
etc.)  Next,  convert  this  number  to  its 
low-/high-byte  representation  us- 
ing the  following  line: 

AD  - [address]:Hl  =  INT( AD /256): 
LO  =  AD-(256*HI) 

where  [address]  is  the  starring  mem- 
ory address. 

Then,  choose  a  graphics  mode 
and  calculate  the  starting  address  of 
the  display  list.  Finally,  POKE  the 
values  LO  and  HI  into  the  screen 


memory  pointers  in  the  display 
list — LO  byte  first,  HI  byte  second. 
Remember,  the  screen  memory 
pointers  are  always  the  fifth  and 
sixth  bytes  of  the  display  list.  Use 
the  following  short  program  as  an 
example: 

10  AD  =  4094.0 

20  HI=INT (fiD/256> : LO=AD- ( 

256«HI ) 
30  GRAPHICS  0 
40  DL=PEEK (560) +256»PEEK < 

5&1  > 
50  POKE  DL+4,L0:P0KE  DL+5 

,HI 

When  executed,  the  screen 
should  almost  instantly  change  to 
display  this  new  area  of  memory. 
This  area  of  memory  is  part  of  the 
BASIC  ROM,  and  should  be  filled 
with  all  sorts  of  interesting  data.  It 
will  be  displayed  as  characters,  since 
GRAPHICS  0  is  a  character  mode. 
By  substituting  different  values  for 
the  variable  AD  in  the  program 
above,  any  area  of  memory  can  be 
displayed  (as  long  as  it  doesn't  cross 
a  4K  boundary,  remember).  Of 
course,  if  the  area  of  memory  you 
choose  to  display  is  empty,  the 
screen  will  be  blank. 

More  Pointers 

There  are  two  other  memory  loca- 
tions that  are  important  to  know 
when  page  flipping.  These  are  loca- 
tions 88  and  89,  another  pointer. 
They  store  a  memory  address  in  the 
usual  low-byte/high-byte  form,  and 
point  to  the  area  of  memory  where 
all  PRINTS,  PLOTS,  and  DRAWTOs 
will  be  directed,  except  for  infor- 
mation displayed  in  text  windows. 
By  POKEing  new  values  into  these 
locations,  you  can  redirect  all 
PRINTS,  PLOTS,  and  DRAWTOs  to 
any  area  of  memory.  In  other  words, 
rather  than  printing  text  or  drawing 
graphics  on  the  screen,  you  can  print 
text  or  draw  graphics  anywhere  in 
memory  and  then  display  this  page 
instantly. 

This  makes  it  possible  to  con- 
struct a  series  of  pictures,  each 
slightly  different  than  the  one  before 
it,  and  each  in  a  separate  area  of 
RAM.  By  rapidly  flipping  through 
these  pictures  in  sequence,  a  pro- 
gram creates  the  illusion  of  motion. 
That's  how  the  demonstration  pro- 
grams below  work. 

A  Spinning  Globe 

If  you  have  at  least  48K  RAM,  use 
Program  1.  If  you  have  only  16K 
RAM,  use  Program  2  and  make  sure 


no  disk  drive  is  connected.  Program 
1  creates  a  spinning  globe  on  the 
high-resolution  GRAPHICS  8 
screen.  Program  2  creates  a  spinning 
globe  too,  but  on  the  medium- 
resolution  GRAPHICS  7  screen  to 
conserve  memory.  (Program  2  also 
works  on  machines  with  more  than 
16K  as  long  as  the  disk  drive  is 
disconnected.) 

Both  programs  GOSUB  to  a 
routine  that  READs  machine  lan- 
guage DATA  into  page  6  (starting  at 
location  1536  decimal).  After  RE- 
TURN, Program  1  fills  an  array  with 
SIN  and  COSINE  values  to  speed  up 
the  drawing  process.  Program  2 
skips  this  step  due  to  the  limited 
memory  on  a  16K  machine.  Both 
programs  switch  to  a  PLOT  mode  at 
line  60  and  set  up  the  various  color 
registers  at  line  70.  The  starting  ad- 
dress of  the  display  list  is  calculated 
at  line  80,  and  certain  variables  are 
initialized  at  line  90.  (When  you  run 
Program  1,  the  screen  is  blank  for 
about  one  minute  during  these 
steps.) 

Lines  100  through  240  use 
BASIC  trigonometric  functions  to 
draw  three  slightly  different  views 
of  a  wire  globe.  Each  drawing  is 
stored  in  a  separate  area  of  RAM. 
The  spokes  of  this  globe  are  nine 
degrees  apart,  and  each  drawing 
shows  the  globe  rotated  three  de- 
grees from  the  previous  one.  As 
each  drawing  is  completed,  the  ON- 
GOSUB  statement  at  line  230  directs 
the  program  to  one  of  two  subrou- 
tines at  lines  1000  and  2000.  These 
routines  POKE  the  screen  memory 
pointers  into  the  display  list,  and 
POKE  the  PRINT,  PLOT,  and 
DRAWTO  pointers  with  the  address 
of  the  next  area  of  memory  to  be 
displayed. 

When  all  of  this  is  completed, 
line  250  calls  the  machine  language 
subroutine  in  page  6.  This  sets  up  a 
vertical  blank  interrupt  routine  that 
rapidly  displays  the  drawings  in  se- 
quence. The  globe  appears  to  spin! 

Multiprocessing? 

Although  machine  language  is  not 
really  necessary  for  page  flipping,  it 
was  included  here  for  a  reason.  No- 
tice that  when  the  globe  starts  spin- 
ning, the  READY  prompt  appears  in 
the  text  window  at  the  bottom  of  the 
screen.  You  can  type  LIST  to  view 
the  program  in  the  text  window 
while  it  IS  executing,  or  even  type 


NEW  and  enter  another  program 
without  affecting  the  display.  This 
allows  you  to  incorporate  the  spin- 
ning globe  in  your  own  programs. 

Another  interesting  item  is 
memory  location  1554.  This  location 
in  the  vertical  blank  routine  controls 
the  speed  of  the  globe's  rotation.  It 
normally  contains  a  1.  Try  POKEing 
1554  with  a  3  to  slow  down  the 
rotation,  or  a  0  to  speed  things  up. 

For  an  example  of  page  flipping 
in  BASIC,  add  these  lines  to  Pro- 
gram 1: 

LJ  245  POKE  DL  +  5,  129:  POKE  DL 

+  101 ,  144SF0R  X=l  TO  1 

0:NE)(T  X 
IJ  246  POKE  DL  +  5,  97:  POKE  DL  + 

101,112: FOR  X=l  TO  10 

JNEXT  X 
FJ  247  POKE  DL  +  5,  65:  POKE  DL  + 

101,80:FOR  X=l  TO  10: 

NEXT     X 
HC  24B     GOTO     245 

or  these  lines  to  Program  2: 

fiJ  245  POKE  DL  +  S,16:F0R  X  =  l 

TD  10:NEXT  X 
m 246  POKE  DL+5,32:F0R  X=l 

TO  10:NEXT  X 
Bfl  247  POKE  DL  +  5, 48: FOR  X  =  l 

TO  10:NEXT  X 
HC  248  GOTO  245 

These  modifications  bypass  the 
machine  language,  yet  show  how 
BASIC  is  plenty  fast  enough  for 
page  flipping.  You  can  slow  down  or 
speed  up  the  globe  by  changing  the 
values  in  the  FOR-NEXT  loops.  Or 
you  can  press  BREAK  and  enter 
GOTO  250  in  direct  mode  to  let  the 
machine  language  routine  spin  the 
globe. 

Feel  free  to  use  these  programs 
for  your  own  pursuits.  Remember 
that  once  they  are  running,  you  can 
enter  NEW  and  type  in  your  own 
program.  Who  knows — maybe  you 
can  come  up  with  a  game  that  has  a 
rotating  planet  in  the  background. 
(Incidentally,  player/missile  graph- 
ics is  an  ideal  way  to  add  moving 
objects  when  flipping  screens,  be- 
cause it's  not  affected  by  page 
flipping.) 

Please  refer  to  "COUPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  these  listings. 

Program  1 :  Spinning  Globe 
Demo  (48K} 


ED  5 

REM  REQUIRES  AT 
BK 

LEAST  4 

FS  10 

POKE  559,0:GDSUB  3000: 

DIM  ARR (450, 1 ) : 

DEG 

6K  19 

REM  **«*  ARRAY 
UTINE  «»«« 

FILL  RO 

DL  20 

FOR  1=0  TD  450 

PP  30 

ARR( I,0)=SIN(I ) 

Pit  40 

ARRd,  I  >=CDS(  I  ) 
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Quickly  flipping  in  sequence  through 
four  previously  drawn  screens,  Program 
1  creates  the  illusion  of  a  spinning  globe 
in  high-resolution  graphics. 

DN  50  NEXT  I 

SB  59  REM  **  SETUP  GRAPHICS 

MODE  »» 
DP  60  GRAPHICS  B 
tF  70  POKE  710,144:POKE  712, 

144!CDL0R  1 
DH  79  REM  »*  CALCULATE  START 

OF  DL  »« 
Uee     DL=PEEK (560) +256«PEEK ( 

561  } 
SO  90  X0-159!  Y0  =  79:  RDS  =  7B:  Z  = 

1 
GS  99  REM  tttt  DRAM  GLOBE  RO 

UTINE  tttt 
EP  100  FOR  R0T  =  6  TO  0  STEP  - 

3 
FClt0  FDR  ANG  =  RDT  TD  ROT+18 

0     STEP  9 
JO  120  R°=RDS*ARR  (ANG,  1  } 
IE  130  X  =  X0  +  R«ARR  (270,  1  ) 


Copy  any 
Ataricartridge 


For  a  limitH]  time  only  you  can 
gel  CAftT  CLONE  wiih  software 
fof  onfy: 

$CQ95 

V  ^  plus  2.50  Shiping 
CARTCLONETM    ■  "«===P«.tyd«K,r«pe 

A  must  for  all  Atari  users. CART  CLONE  will  back- 
up and  transter  any  8  or  16K  cartri(Jge  to  disk  or 
tape.  Tfie  contents  of  the  cartridge  will  become  a 
file  wtiicti  you  can  transfer,  rename  or  delete. 
They  will  execute  from  DOS. No  need  to  run  a  spe- 
cial menu  or  program  to  run  these  files  (requires 
minimum  48K  RAM). 

n  Will  it  copy  any  cartridge?  The  answer  is  YES. 
n  What  will  I  get?  The  answer  is  a  cartridge  con- 
taining the  hardware  and  a  disk  with  the  doner 
software  in  a  powerful  machine  language 
program. 

CART  CLONE  Goes  in  the  left  cartridge  slot 
enabling  it  to  work  in  all  ATARI  Home  Computers 
including  the  XL  series. 

ULTIMA  ELECTRONICS,  LTD. 

21  Central  Drive 
Farmingdale,  New  York  1 1 735 
(516)752-0144  TollFrBe:  800-645-96D7 

We accepl  VISA,  American  Express andC. CD. orders 


m   140  Y=Y0+RDS* 
LC  150  PLOT  X,  Y 
AN  160  FDR  CIR  =  2 

EP  10 
BK  170  X=RtARR  (C 
LC  180  Y  =  RDS»ARR 
KP  190  DRAWTD  X0 
CK200  IF  ANG=RD 

O  X0-X,Y0 

,  Y0  +  Y 
LS210  NEXT  CIR 
H 220  NEXT  AN6 
LL  230  ON  Z  GOSUB  1000,2000 
«K  240  NEXT  ROT 
U  245  POKE  DL  +  5 


ARR (270, 0> 

80  TD  450  ST 

IR,  1  ) 

(CIR, 0) 

+  X  ,  Y0-I-Y 

T  THEN  DRAWT 

+  Y:PLOT  X0-t-X 


IJ  246 

FO  247 

HC  24B 
ID  250 
BP  260 
EC  999 

PC  1000 

PD  1010 

in  1020 

KE  1030 
HE  1999 

K  2000 

PK  2010 

IL  2020 

KF  2030 

H6  2999 

CC  3000 
HB  3010 
LK  3020 
KD  3030 
EP  3040 
CI  30S0 
LH  3999 

BI  4000 

L?l  4010 

DA  4020 

PB  4030 

KP  4040 

LK  4050 

CD  4060 

OC  4070 


+101 , 1443 
0:NEXT  X 
POKE  DL+5 
101 , 1 125F 
:NEXT  X 
POKE  DL+5 
101 , B0: FO 
NEXT  X 
GOTO  245 
A  =  USR  (PAS 
END 

REM  t  POI 
BROUTINE 
POKE  DL+ 
+101,112 
POKE  89, 
Z  =  2 

RETURN 
REM  t  PO 
UBROUTIN 
POKE  DL+ 
+101 , 80 
POKE  89, 
Z=0 

RETURN 
REM  tttt 
ROUTINE 
PAGE6=15 
FDR  1=0 
READ  DBJ 
POKE  PAG 
NEXT  I 
RETURN 
REM  tt  M 
AGE  DATA 
DATA  104 
04, 169, 6 
DATA  6, 1 
228, 96, 1 
DATA  20, 
164, 204, 
DATA  53, 
, 136, 185 
DATA  6, 1 
92,0, 240 
DATA  136 
50,6, 169 
D,ATA  133 
28, 80,65 
DATA  97, 


, 129:P0KE  DL 
FOR  X=l  TO  1 

,97! POKE  DL+ 
DR  X=l  TO  10 

,65: POKE  DL+ 
R  X=l  TO  10: 


E6) 

NTER  POKE  SU 

t 

5,97:P0KE  DL 

97 


INTER  POKE  S 
E  t 
5,65:P0KE  DL 

65 


ML  READ  SUB 
tttt 

36 

TO  58 

E6+I , OBJ 


ACHINE  LANGU 

tt 
, 169, 5, 133,2 
,  162 

60, 15, 32,92, 
65 

41,1, 208, 29, 
185 

6,141, 85, 12B 
,  53 

41,181, 128, 1 
,6 

,132, 204, 76, 
,5 

, 204,76, 95, 2 
■  112 
144, 129 


Program  2:  Spinning  Globe 
Demo(16K) 

U   5  REM  DISCONNECT  DISK  DRI 

VE 
FN  10  POKE  106,64:  GRAPHICS  0 
iPOKE  559,0:GOSUB  3000 
SF  50  DEG 
SB  59  REM  tt  SETUP  GRAPHICS 

MODE  tt 
DO60  GRAPHICS  7 
KF  70  POKE  710,144:POKE  712, 

144SCOLOR  1 
DH79  REM  tt  CALCULATE  START 
OF  DL  tt 


Program  1  also  simulates  a  spinning 
globe  via  page  flipping,  but  uses 
medium-resolution  graphics  to  save 
memory. 


u.  80    D 

5 

m  90   X 

61  9  9     R 
U 
EF  100 

FC   1  10 

£B  120 
EH  130 

m  140 

LC  150 
AN  160 

LN  170 
FL  180 
KP  190 
Cn  200 


LA  210 
KJ  220 
KK  230 

UK  240 

LD  250 

6P  260 

ED  999 

HB  1000 
PD  10  10 

in  1020 

KE  1030 
HE  1999 

HE  2000 

PS  20  10 

IL  2020 

KF  2030 

K6  2999 

CC  3000 

GP  30  10 

LH  3020 

IID  3030 

EP  3040 

Kl  3050 

LK  3999 

BF  4000 

LH  4010 

HI  4020 

LF  4030 

FQ  4040 

PD  40S0 


L=PEEK (56 
61  } 

0=79; Y0=3 
EM  tttt  D 
TINE  tttt 
FDR  R0T=6 
3 

FOR  ANG=R 
0  STEP  9 
R=RDS»CDS 
X=X0+RtCO 
Y=Y0+RDSt 
PLOT  X,Y 
FOR  CIR=2 
EP  10 
X=RtCQ5(C 
Y=RDStSIN 
DRAWTO  X0 
IF  AN(3  =  R0 
0  X0-X,Y0 
,  Y0  +  Y 
NEXT  CIR 
NEXT  ANG 
ON  Z  GD5U 
3000 

NEXT  ROT 
A=USR (PAG 
END 

REM  t  POI 
BROUTINE 
POKE  DL+ 
POKE  B9, 
Z  =  2 

RETURN 
REM  t  PO 
UBROUTIN 
POKE  DL+ 
POKE  89, 
Z=0 

RETURN 

REM  tttt 

ROUTINE 

PAGE6=15 

FOR  1=0 

READ  DBJ 

POKE  PAG 

NEXT  I 

RETURN 

REM  tt  M 

AGE  DATA 

DATA  104 

04, 169,6 

DATA  6, 1 

22S, 96, 1 

DATA  20, 

164, 204, 

DATA  45, 

,  192,0,2 

DATA  5, 1 

, 6, 169, 2 

DATA  133 

28, 16, 32 


0)  +2S6tPEEK ( 

9: RDS=38: Z=l 
RAW  GLOBE  RO 

TD  0  STEP  - 

OT  TO  ROT+ia 

(ANG) 
S (270) 
SIN  <270) 

80  TO  450  ST 

IR) 
(CIR) 
+X , Y0+Y 
T  THEN  DRAWT 
+Y:PLOT  X0+X 


B  1000,2000, 


E6) 


NTER 

POKE  SU 

t 

5,  32 

32 

INTER 

POKE  S 

E  t 

5,  16 

16 

ML  READ  SUB 

tttt 

36 

TD  47 

E6+I  , 

dSj 

ACHINE  LANGU 

tt 

,  169, 

2,  133,2 

,  162 

60,  15 

,32,92, 

65 

41,1, 

208,21 , 

185 

6,141 

,167,47 

40 

98,204,76, 42 

.204, 

76,95,2 

,48 

(S 
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Commodore  64 

Hi-Res 

Quick  Ciear 


Paul  W,  Downing 


Here's  a  machine  language  routine 
that  dears  the  Commodore  64's  high- 
resolution  screen  in  less  than  a  second. 


If  you've  ever  used  high-resolution 
graphics  on  the  Comnaodcre  64,  you 
probably  knov^f  how  long  it  takes  to 
clear  the  hi-res  screen  in  BASIC. 
You  need  to  POKE  8,000  memory 
locations  with  zeros,  usually  with  a 
line  like  this: 

FOR  J  -  8192  TO  161 92:POKE  J,0:NEXT 

This  takes  about  30  seconds — 
not  a  very  long  time,  but  it  can  seem 
almost  endless  if  you're  staring  at  a 
PLEASE  WAIT  message  on  the 
screen,  waiting  for  the  program  to 
set  up. 

"Quick  Clear"  is  a  short  ma- 
chine language  routine  that  clears 
the  hi-res  screen  in  less  than  one 
second.  It  can  be  inserted  in  any 
program  that  uses  high-resolution 
graphics.  You  don't  need  to  under- 
stand machine  language  to  use  it — 
just  type  it  in  and  enter  RUN.  This 
installs  the  ML  in  the  cassette  buffer, 
starting  at  location  828.  Once  the 
routine  is  in  place,  use  SYS  828 
whenever  you  want  to  clear  the  hi- 
res screen. 

Fill  With  Any  Value 

If  you've  never  used  hi-res  graphics 
before,  try  this  experiment.  Run 
Quick  Clear,  then  enter  the  follow- 
ing line  to  put  your  64  in  bitmap 
mode: 


POKE  53265,PEEK(53265)OR32; 
POKE  53272,FEEK(53272)OR8 

The  screen  will  be  full  of  gar- 
bage. Now  press  SHIFT-CLR/ 
HOME  and  enter  SYS  828.  The 
screen  will  clear  in  a  heartbeat. 

Ordinarily,  you'll  want  to  clear 
the  screen  with  zeros.  But  you  can 
also  use  this  routine  to  fill  the  hi-res 
screen  with  any  value  from  0  to  255. 
Just  change  the  second  number  in 
the  third  DATA  statement  from  0  to 
the  desired  number. 

The  ML  routine  is  relocatable, 
so  you  don't  need  to  put  it  in  the 
cassette  buffer.  To  change  its  loca- 
tion, change  the  variable  SA  in  line 
10  from  828  to  another  safe  address 
(49152,  for  example). 

The  variable  HS  in  line  10  is  the 
starting  address  of  the  hi-res  screen. 
If  you  locate  the  screen  at  some  ad- 
dress other  than  8192,  be  sure  to 
change  HS  to  match. 

Quick  Clear 

Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Progroms"  before  entering  this  listing. 

10  SA=828:HS=8192:POKE2,HS-256 

*INTCHS/256) :P0KE3,IKT(HS/2 

56)  :rem  30 

20  F0RA=SAT0SA+31 :READB:POKEA, 

BrNEXT  : rem  74 

30  DATA  165,2,133,4,165,3 

:rem  193 
40  DATA  133,5,162,30,160,0 

:rem  233 
50  DATA  169,0,145,4,136,208 

:rem  45 
60  DATA  251,230,5,202,16,242 

:rem  81 
70  DATA  160,64,145,4,136,16 

: rem  45 
80  DATA  251,96      :  rem  181  ©. 
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Unlocking  IBM  BASIC  Programs 


Peter  F,  Nicholson 


This  short  utility  unlocks  BASIC  pro- 
grams which  have  been  saved  in  pro- 
tected format  with  the  P  option.  If 
works  on  any  IBM  PC  or  PCjr. 


IBM  BASIC  lets  you  save  a  program 
in  three  formats:  in  tokenized  (com- 
pressed binary)  form,  as  an  ASCII 
file,  or  as  a  protected  (encoded  bina- 
ry) program.  The  commands  for 
these  options  are: 

SAVE  "filename"         (tokenized) 
SAVE  '■filename",A      (ASCII) 
SAVE  "fileitame",P       (protected) 

In  each  case,  DOS  automatical- 
ly appends  the  extender  .BAS  and 
does  not  indicate  the  format  on  disk 
directories.  You  can  load  a  program 
saved  in  any  format  with  LOAD 
"filename.BAS",  omitting  the  .BAS 
extender  if  you  wish. 

Although  a  protected  program 
loads  and  runs  normally,  it  cannot 
be  listed  or  edited,  and  neither 
BASIC  nor  DOS  provides  a  way  to 
"unlock"  it.  So  when  you  save  a 
program  in  protected  format,  you 
should  also  save  an  unprotected 
copy  in  case  you  decide  to  make 
some  changes  later.  If  you  find  your- 
self without  a  backup,  however,  the 
following  utility  can  remove  the 
protection. 

Type  in  and  save  UNPROT, 
UTL.  Note  that  you  must  save  it  with 
the  filetiame  UNPROT.UTL  When 
you  run  it,  you'll  be  prompted  to 
enter  the  active  drive  (enter  A  if  you 
have  one  drive)  and  the  name  of  the 
protected  program.  The  drive  runs 
briefly  as  the  protection  is  removed, 
and  then  your  program  is  listed  on 
the  screen,  ready  for  you  to  edit  or 
resave. 

Invisible  Fingers 

To  mimic  the  effect  of  entering  direct 
keyboard    commands,    UNPROT. 
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UTL  assigns  strings  to  the  ten  spe- 
cial function  keys.  It  then  manipu- 
lates the  keyboard  buffer  to  enter 
each  string  automatically,  as  if  the 
function  keys  were  being  pressed  in 
sequence  by  invisible  fingers.  If  you 
use  DOS  2.1,  the  subroutine  at  line 
2000  automatically  enters  the  func- 
tion keystrokes  for  you.  If  you  have 
another  version  of  DOS,  you'll  have 
to  delete  the  GOSUB  2000  state- 
ment from  line  290  and  press  Fl 
through  FIO  in  sequence  yourself, 
after  entering  the  filename. 

Mimicking  keystrokes  is  an  effi- 
cient technique,  but  it  makes  a  pro- 
gram somewhat  difficult  to  follow.  If 
you're  interested  in  how  this  utility 
works,  here's  a  brief  explanation  of 
how  protected  programs  can  be 
unlocked. 

The  Key  Addresses 

The  first  thing  you  need  to  learn  is 
where  the  program  starts  and  ends 
in  memory.  As  explained  in  Appen- 
dix I  of  the  IBM  BASIC  Manual,  these 
addresses  can  be  found  with  the  fol- 
lowing PEEKs: 

FEEK(&H30)-!-256*PEEK(&H31) 

Program  starting  address 
P  EEK(&H358) -(- 256 'PEEK  (&H3S9)  - 1 

Program  ending  address 

The  starting  address  is  the  same 
in  every  case;  you  can  find  it  simply 
by  entering  NEW  followed  by  the 
first  PEEK  statement  above.  Finding 
the  ending  address  is  more  difficult, 
as  you'll  find  if  you  load  a  protected 
program  and  enter  the  second  state- 
ment. All  you'll  get  for  your  trouble 
is  an  illegal  function  call  enor. 

However,  there's  another  way 
to  get  the  same  information.  Scalar 
variables  are  stored  immediately 
after  the  end  of  a  BASIC  program, 
and  the  VARPTR  function  can  find 
the  address  of  any  variable.  All  you 
need  to  do  is  define  an  arbitrary 
scalar  variable,  CHAIN  the  protect- 
ed program  into  memory,  and  use 
VARPTR  to  find  the  address  of  the 
dummy  variable. 


Breaking  The  Chains 

Unlike  the  LOAD  command,  which 
clears  variables,  CHAIN  brings  a 
program  into  memory  and  begins 
execution  at  a  specified  line  number 
without  destroying  preexisting  vari- 
ables. This  is  the  method  used  in 
UNPROT.UTL,  We  don't  want  to 
run  the  chained  program  after  it's  in 
memory,  so  the  CHAIN  command 
uses  a  nonexistent  line  number 
(65529).  This  simply  halts  execution 
with  an  illegal  function  call  error. 

Subtracting  a  few  bytes  to  ac- 
count for  the  variable  descriptor 
gives  us  the  exact  address  where  the 
program  ends.  To  determine  its 
length,  we  subtract  the  starting  ad- 
dress from  the  ending  address. 

Now  that  we  know  the  pro- 
gram's starting  address  and  length, 
we  BSAVE  it  back  to  disk  as  a  binary 
file.  After  performing  a  second 
NEW,  it's  necessary  to  set  the  point- 
ers for  the  start  of  scalar  variables, 
arrays,  and  strings  at  the  spot  where 
the  program  ends.  Finally,  the  pro- 
gram is  BLOADed  back  into  memo- 
ry at  the  correct  starting  address, 
and  the  unlocking  process  is 
complete. 

If  you  would  rather  not  type  in 
this  program,  send  a  formatted  disk 
with  a  self-addressed,  postage-paid 
mailer  and  a  $3.00  check  to: 

Peter  F.  Nicholson 

1701  South  Princeton  Road 

Ottawa,  Kansas  66067 


UNPROT.UTL 

Please  refer  to  "COMPUTEI's  Guide  to  Tvping  In 
Programs"  tJefore  entering  ttiis  listing, 

IB  80  REM  'UNLOCK'  PROBRftMS  SAVE 

D  IN  PROTECTED  FORMAT. 
US  90  REM  LOADS  ft  PREVIOUSLY  PRO 
TECTED  PROBRAM  INTO  MEMORY 
KB  95  REM  WITHOUT  PROTECTION,  SO 

PROGRAM  CAN  BE  LISTtD  AND 

SAVED. 
n   96  REM  IBM  BASIC  VERSIONS  1.1 

AND  2.0 
JL  100  DEF  SEG: CLEAR: KEY  DFF:CLS 

rON  ERROR  GOTO  300 
HJ  110  B7.=0:ft=0 
Nl!  120  GOSUB  1000 


a  130  fl-PEEK(!<H30)+256*PEEK(S<H3 

1) 
IL  140  LINE  INPUT  "PROTECTED  FIL 

E  DRIVE  ";G*:IF  LEN(G«)>0 
THEN  IF  INSTRCe*, ": ")=0 

THEN  e*-G*+": " 
HO  150  LINE  INPUT  "PROTECTED  FIL 

e  NAME  ";F«:IF  INSTRCF*," 

.")=>0   THEN   F*=F«  +  ".BflS" 
HP    160    G«=G«+F» 
DI    170    F«="PRQT.SCR" 
HE    180    H«="PRaT.DAT"!lS="UNPROT. 

UTL" 
HS    190    KEY    1, "B=VftRPTR(B) "+CHR*( 

13) 
IF  200  KEY  2,"BSAVE  F«,A,B-A" 
BL  210  KEY  3,"-4;BSAVE  H»,B," 

n   220  KEY  4,"4:CHAIN  I*,500"+CH 

R«(13) 
ON  230  KEY  5, "BLOAD"+CHRS(34) 
K   240  KEY  6,H*+CHR*(34)+",856"+ 

CHR«(13) 
El  250  KEY  7, '•BLQAD"-i-CHR*(34)+F» 
IH  260  KEY.a,CHR*(34)+", "+STR*(fi 
)+CHR*(13)+"LIBT"+CHR»<13 
> 
ftC  270  KEY  9, "FDR  I=1T0  10: KE" 
«H  280  KEY  10, "Y  I , "+CHRS (34) +CH 

R« (34) +" : NEXT"+CHR* 1 13) 
LJ  290  GOSUB  2000: COLOR  0,0:CHAI 

N  G«, 65529! , ALL 
£E  300  FDR  1  =  1  TO  10s  KEY  I ,  "" ; NE 

XT  I 
DH  310  COLOR  7,0: IF  ERL=290  AND 
ERR=53  THEN  CLSlBEEP:PRIN 
T  G*+"  DOES  NOT  EXIST":RE 
SUflE  140 
NE  320  ON  ERROR  GOTO  0:  END 
BS  500  B=0:DIM  B17.(2)  :  COLOR  7,0 
CO  510  BLOAD  "PROT.DAT",VARPTR(B 

) 
OS  520  FDR  1=0  TO  2:  IF  B<2-^1S  TH 
EN  B1X(I)=B  ELSE  B1X(I)=B 
-2-^16 
K   530  NEXT  I:BSAVE  "PRaT.DAT",V 

ARPTR(Bir.  (0)  ),6 
DC  540  NEW 
HK  1000  PRINT  "UNPROTECTINB  BASI 

C  PROGRAMS" 
OJ  1010  LOCATE  4, 10: PRINT  "1.  YD 
U  WILL  BE  PROMPTED  FOR  T 
HE  FILE  DRIVE  AND  NAME" 
PC  1040  LOCATE  7,10:PRINT  "2.  TH 
E  FINAL  STEP  IS  THE  LIST 
ING  OF  YOUR  PROSRAM" 
6F  1050  LOCATE  16,1: PR I  NT  "NOTE: 
FUNCTION  KEYS  ARE  CLEAR 
ED  BY  THE  PROGRAM  AND  TW 
O  SCRATCH" 
KB  1060  LOCATE  ia,l:PRINT  "FILES 
,  PROT.SCR  AND  PROT.DAT 
ARE  LEFT  ON  YOUR  DEFAULT 
DRIVE" 
m    1070  LOCATE  25,1: PRINT  -PRESS 

ANY  KEY  TO  START"; 
CB  1080  KB«=INKEY«: IF  KB«=""  GOT 

O  1090:  'CLEAR  KEYBOARD 
EK  1090  KBt=INKEY*: IF  KB«=""  GOT 

0  1090 
EF  1100  CLS:  RETURN 

6F  2000  REM  «t  SET  KEYBOARD  BUFF 
ER  TO  ENTER  Fl  THROUGH  F 
10  AUTDMATICALLY»«t 
DH  2010  REM  »«  IBM  P 

C  DOS  VERSION  2.  1 

**« 
J6  2020  DEF  SEG=S<H40:FOR  1  =  1  TO 
10:POKE  2*1+28, 0!PDKE  2« 
1+29, 56+1: NEXT  I 
CD  2030  POKE  2tI+28, 13:P0KE  2»I+ 
29, 28: POKE  26, 30: POKE  28 
,50: DEF  SEGs RETURN    @ 


Fast  Atari  Circles 


Owen  Sexsmith 


Draw  circles,  stars,  diamonds,  and 
other  geometric  shapes  in  Atari  BASIC 
quickly  and  easily,  all  with  a  single 
subroutine  written  in  machine  lan- 
guage. For  the  Atari  400/800,  XL,  and 
XE  computers. 


Unlike  some  newer  versions  of  the 
language,  Atari  BASIC  has  no  CIR- 
CLE statement,  so  cirawing  circles 
can  be  a  slow  anti  cumbersome  pro- 
cess. But  with  "Fast  Atari  Circles," 
you  can  easily  draw  circles,  ellipses, 
stars,  and  a  galaxy  of  other  shapes. 
The  routine  is  written  in  machine 
language  for  maximum  speed,  but 
you  don't  need  to  understand  ML  to 
use  the  routine  in  your  own 
programs. 

Type  in  and  save  Fast  Atari  Cir- 
cles. When  you  run  it,  you'll  see  a 
pattern  of  finely  drawn,  elliptical 
lines.  After  that,  the  program  gener- 
ates colored  disks,  open  stars,  hexa- 
gons, diamonds,  and  other  complex 
shapes  in  various  graphics  mocies. 

Believe  it  or  not,  all  these 
shapes  were  created  with  just  one 
routine.  As  you  can  see  from  the 
program,  GOSUB  900  is  used  when- 
ever graphics  are  generated.  Line 
900  consists  of  a  single  USR  state- 
ment (which  calls  the  machine  lan- 
guage subroutine),  followed  by 
RETURN.  The  USR  statement  in- 
cludes several  descriptively  named 
variables,  such  as  XCENTER  and 
YRADIUS.  To  create  a  shape,  you 
simply  assign  values  to  these  BASIC 
variables,  then  call  the  Fast  Circles 
routine  with  USR. 

Defining  The  Variables 

XCENTER  and  YCENTER  locate 
your,  shape  on  the  screen. 
XCENTER  defines  the  X  coordinate, 
or  horizontal  location.  Give 
XCENTER  a  small  value  to  put  the 
shape  near  the  left  of  the  screen,  and 
larger  values  to  move  it  to  the  right. 


YCENTER  defines  the  Y  coordinate, 
or  vertical  location.  Smaller 
YCENTER  values  put  the  shape 
higher  on  the  screen,  and  larger  val- 
ues move  it  down.  XRADIUS  and 
YRADIUS  define  the  shape's  width 
and  height,  respectively. 

To  learn  how  these  four  vari- 
ables interact,  look  at  lines  165-220. 
In  line  165,  XCENTER  and 
YCENTER  are  given  values  that 
place  the  shape  in  the  middle  of  the 
screen.  In  lines  205-220,  a  FOR- 
NEXT  loop  increases  the  values  of 
XRADIUS  and  YRADIUS  each  time 
the  loop  is  executed.  Since  XRA- 
DIUS is  always  greater  than  YRA- 
DIUS, the  shape  is  wider  than  it  is 
high,  forming  an  ellipse.  In  lines 
225-240,  the  process  is  repeated, 
giving  YRADIUS  greater  values 
than  XRADIUS,  so  the  ellipse  is 
higher  than  it  is  wide. 

By  changing  the  STEP  values  in 
lines  205  and  225,  you  can  change 
the  distance  between  the  lines.  For 
example,  try  STEP  3  instead  of  STEP 
5  in  line  205,  and  STEP  1  instead  of 
STEP  5  in  line  225.  You'll  see  an 
interesting  moir§  effect  in  areas 
where  the  two  shapes  overlap.  If 
you'd  like  to  experiment  further, 
add  these  two  lines: 

201  XRADIUS  =  96:  YRADIUS=96: 
GOSUB  900 

202  GOTO  202 

When  you  run  the  program 
again,  it  draws  one  shape  and 
pauses  in  an  endless  loop  at  line 
202.  Since  XRADIUS  and  YRADIUS 
are  equal,  the  shape  is  a  circle  (some 
TV  sets  and  monitors  may  be  mildly 
distorted,  making  the  circles  look 
slightly  elliptical). 

Press  BREAK  to  stop,  and  edit 
line  175  so  that  DELTA  =  32.  When 
the  program  runs,  you  should  see  an 
octagon.  When  DELTA =64,  it  be- 
comes a  diamond.  If  you  change 
DELTA  to  an  odd  value  such  as  81, 
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the  program  draws  a  complex  series 
of  lines  that  eventually  overlap  to 
form  a  thick  doughnut  shape.  When 
you're  done  experimenting  with  this 
section,  delete  lines  201  and  202. 


EA  66 


Fa  67 

PS  7  0 


A  small  example  of  some  shapes  you  can 
draw  with  "Fast  Atari  Circles." 


Using  The  Routine 

The  demonstration  program  con- 
tains REMarks  explaining  what  each 
section  does.  By  studying  the  pro- 
gram and  experimenhng  with  other 
sections,  you  can  quickly  learn  how 
to  handle  all  the  variables  used  by 
the  Atari  Fast  Circles  routine. 

To  use  this  routine  in  your  own 
programs,  you'll  need  to  include 
lines  50-60,  70,  900,  and 
1000-1135.  Lines  50-60  create  a  ta- 
ble of  sine  values  in  SINES.  Line  70 
builds  the  machine  language  routine 
in  CIRCS.  Line  900  contains  the 
line-drawing  USR  call,  and  lines 
1000-1135  are  the  machine  lan- 
guage data.  Put  the  lines  that  create 
CIRCS  and  SINES  in  the  setup  por- 
tion of  your  program.  Once  the  set- 
up is  complete,  you're  ready  to 
create  your  own  graphics 
masterpieces. 


Fast  Atari  Circles 

Pleos©  refer  to  "COMPUTE! 's  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 


PL  10 


EI  40 
HK  42 


£K  45 
HH  50 


a  55 
F!  60 

EP65 


GRAP 

5,4 

"  !  ? 

(7  S 

REM 

REM 

IN 
REM 
DEG 

1=0 
IN  (<? 
IF  X 
SINE 
T  I 
REM 


HICS  2+16:PDSITI0N 
: ?  #6; "PLEASE  WAIT 
#6:?  «6; " 
PACES>loading" 

BUILD  A  SINE  TABLE 
SINE* 

:DIM  SINE«(6S) : FOR 
TO  64: X=INT (256»S 
0/64*1 ) +0. K) 
>255  THEN  X=255 
* { I+l }=CHR» (X) t NEX 


HK  150 

OA  155 

HL  160 

IJ  165 

LK  170 
CF  175 
KK  2  00 
LE  205 

DG  2  10 

LB  215 
BK220 
LB  225 
DI  230 

LB  235 
80  240 
DB  245 
HL  250 
PO  255 
Kn260 
PI  265 

LK  270 
DJ  275 

CE  2B0 
IH  2B5 

LE  290 
CO  295 


REM 

N  CI 

REM 

DIM 
TO 

)  =CH 
REM 
REM 
REM 
XCE 
6 
ARC 
KOL 
GRA 
FOR 
XRA 
=  5  + 
GOS 
NEX 
FOR 
XRA 
+  2» 
GOS 
NEX 
FOR 
REM 
REM 
REM 
KOL 
ICS 
FOR 
XCE 
R=l 
FOR 
XRA 
RCE 
EDS 
NEX 


BP  300 

CA  305 
HI  310 
KB  315 
HJ  320 
PL  325 

FL  330 

EH  335 
no  337 

HC  3  40 


AQ  34  5 
KB  350 

LC  36  0 
tJ  370 
DF  375 
HP  380 
n  385 

!A  390 
LI  400 

IP  405 


HE  4  10 


EN  420 
Cn  4  30 


CE  440 


F6  450 
EJ  460 


flO  470 


PUT  M.L.  ROUTINE  I 
RC« 

CIRC»(280) ! FOR  1=1 
280:READ  X:CIRC»<I 
R«(X)sNEXT  I 

ELLIPSES 

NTER-160S  yCENTEB-9 

START=-0!  ARCEND  =  0 
0R=l:DELTA=-2 
PHICS  8+16 

1=0  TO  75  STEP  S 
DIUS"5  +  2«I J  YRADIUS 
I 

UB  900 
T  I 

1=0  TO  45  STEP  5 
DIUS-5+I:YRADIUS=5 
I 

UB  900 
T  I 

1=1  TO  300:NEXT  I 

DISKS 

OR=l : DELTA=1 : GRAPH 

7+16 

1=6  TO  27  STEP  3 
NTER=10+4«I ! YCENTE 
0  +  2»I 

J=0  TO  I 
DIUS=-J!  YRADIUS- J  :  A 
ND=  NOT  J 
US  900 
T  J 


KDL0R=KDL0R+1 : IF  KOLD 

R>3  THEN  K0LDR=1 

NEXT  I 

REM 

REM  SQUARES  . 

REM 

GRAPHICS  3+16SDELTA-6 

4 

REM  SIXTY-FOUR  IS  A  D 

UARTER  ARC 

XCENTER-20! YCENTER-12 

FOR  K-0  TO  1:ARCSTART 

-32»K! ARCEND=32«K 

FOR  1=0  TO  52KOL0F!  =  K0 

LOR+l!lF  K0LDR>3  THEN 

K0L0R=1 
FOR  J=0  TO  1 
XRADIUS-2«I+a: YRADIUS 
~2tI+J 
GOSUB  900 

NEXT  J. NEXT  I:NEXT  K 
FOR  1=1  TO  300:NEXT  I 
REM 
REM 
PES 
REH 

GRAPHICS  7+16: 
;DIM  S(4),E(4} 
S  < 1 ) =0: E< 1 ) =0: 
:S(2)=1935E(2): 
2) =102 

S(3)=16!E(3>=16: I (3)= 
32:S(4)=0:E(4)=0: I <4) 
"J 

XRADIUS=10! YRADIUS=10 
FDR  1=0  TO  3:S=4-l!F0 
R  J=0  TO  3 

KOLOR  =  KOLOR  +  1 5  IF  KOLO 
R>3  THEN  KOLaR=l 
S=S+1:IF  S>4  THEN  S=l 
XCENTER=20+40«J:YCENT 
ER=12+20«I 

ARCSTART=S (S) : ARCEND= 
ECS) ; DELTA=1 (S) 


VARIOUS  OTHER  SHA 


KOLOR=0 

1(4) 
1(1) =64 
^91  :  I  ( 


LF  480  GOSUB  900 

01  490  NEXT  J  :  NEXT  I 

DM95  FOR  1  =  1  TO  300:NEXT  I 

ED  500  GOTO  500 

EB900  X=USR  (ADR  (CIRC*)  ,  ADR  C 
SINE*) , X CENTER, YCENTE 
R, X RAD I US, YRADIUS, ARC 
START, ARCEND, 256«K0L0 
R+DELTA) ! RETURN 
DATA  104,  104,  133, 231 
, 104, 133,2  30, 104, 133 
,217 

DATA  104, 133,216, 104 
, 133, 22H, 133,229, 104 
,  133 

DATA  218,104,104,133 
,219, 104, 104, 133, 220 
,  104 

DATA  104,133,221,104 
, 104, 133,222, 104, 141 
,  251 

DATA  2, 104, 133, 223, 1 
62,0,  134,227,  165,227 
DATA  56, 233,64,  133,  2 
27, 165, 221 , 56, 229, 22 
7 

DATA  133,224,144,240 
, 165,227,41 , 128, 133, 
225 

DATA  165,227,41,64,2 
40, 7, 169,64,56, 229 
DATA  224,133,224,165 
, 227, 240, 6, 201 , 192, 2 
40 

DATA  2, 162, 128, 134, 2 
26, 164, 224, 177, 230, 1 
33 

DATA  214,165,220,133 
,215, 169, 0, 133, 212, 1 
62 

DATA  8,70,214,144,3, 
24, 101,215, 106, 102 
DATA  212,202,208,243 
,166, 225, 240, 5, 73, 25 
5 

DATA  24,105,1,24,10  1 
,218, 133, 84, 169,64 
DATA  56,229,224,168, 
177,230, 133, 214, 165, 
219 

DATA  133,215,  169,0,  1 
33,212, 162, 8,208,2 

DATA  208,138,70,214, 

144, 3, 24, 101,215, 106 

DATA  102,212,202,208 

,243, 133, 227, 166, 226 

,  240 

DATA  16,165,216,56,2 

29,227, 133, 85, 165, 21 

7 

DATA  233,0,133,86,24 

, 144, 13, 165, 216, 24 


EF  1000 

FJ  1005 

EK  1010 

EI  1015 

JB  1020 
QB  1025 

CP  1030 

FE  1035 
PK  1040 

AG  1045 

PH  1050 

CH  1055 
HA  1060 

DP  1065 
EK  1070 

BL  1075 

J6  1080 
GC  108  5 

OJ  1090 

EA  109S 

If.   1100 

DC  1  105 

LF  1  1  1  0 

BK  1  1  1  5 

LE  1120 

PB  1125 

PF  1  130 

IF  1  135 


DATA 

165, 

DATA 

162, 

1 

DATA 

157, 

DATA 

86,  2 

DATA 

,74, 

DATA 

96,  3 

DATA 

221  , 

21 

DATA 

,202 

.96 


101 , 227 
217, 105, 

166,228 
96, 134,2 


, 133, S5, 
0, 133, 86 
, 208,40, 
28, 169, 1 


3, 169, 0, 

,73 
;51,2,32, 

7,157 
.9, 12, 157 

157 

0, 9, 162, 
166 


157, 66,  : 
,72,3, 157 
=1  3,  173,  21 
228, 169, 1 
■"  66,  3,16' 
;,  169,0, 
75,3,24 

2, 86, 228, 

I  229, 208, 16, 165, 
24, 101 ,223, 133,2 


197, 222 
, 134,229 


,208, 142 
,208, 137 
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Apple 

Universal 

INPUT 

Williom  Simpson 


Banish  EXTRA  IGNORED  errors  from 
your  Applesoft  programs  zvith  this 
short  INPUT  routine.  It  works  on  any 
Apple  II  series  computer  with  DOS  3.3 
or  ProDOS. 


As  you  know  if  you've  ever  tried  it, 
Applesoft  BASIC  won't  let  you  type 
commas  or  colons  when  responding 
to  an  INPUT  prompt.  The  computer 
rejects  everything  after  the  punctua- 
tion and  gives  you  an  EXTRA  IG- 
NORED error.  There's  a  good 
reason  for  this,  but  there  may  be 
times  when  you'd  like  an  input 
string  to  include  the  punctuation. 
For  example,  you  might  want  to 
input  a  time  value  in  response  to  a 
prompt  like: 
ENTER  HOURS:MINUTES. 

"Apple  Universal  Input"  solves 
this  problem  and  can  be  used  as  a 
routine  in  any  Applesoft  BASIC  pro- 
gram. Once  installed,  it  lets  you  in- 
put strings  containing  commas  and 
colons,  from  the  keyboard  or  from 
disk. 

Type  in  and  save  the  following 
program,  then  enter  RUN  and  type 
any  string  containing  commas  or  co- 
lons. The  program  prints  the  string 
to  show  that  the  input  was  accepted 
without  errors. 

You'll  notice  that  the  input 
prompt  is  a  greater-than  sign  (>) 
rather  than  a  question  mark.  This 
signals  that  the  normal  Applesoft 
INPUT  command  is  not  in  use.  If 
you  don't  like  this  prompt,  you  can 
easily  change  it  to  another  character. 
Find  the  ASCII  code  for  the  charac- 
ter you  prefer,  add  128  to  the  ASCII 


code,  and  substitute  that  value  for 
the  second  DATA  number  in  line 
270  of  the  program.  For  example, 
the  <  character  has  an  ASCII  code  of 
60.  To  use  that  character  as  the 
prompt,  you  would  replace  the  sec- 
ond DATA  number  in  line  270  with 
188  (60  +  128). 

Program  Breakdown 

Let's  look  at  the  example  program  to 
learn  how  this  input  routine  can  be 
used  in  other  programs. 

Line  100  defines  the  variable 
T$.  It's  essential  that  this  be  the  first 
variable  your  program  defines. 

Line  110  POKEs  a  short  ma- 
chine language  (ML)  routine  into 
memory;  the  DATA  for  this  routine 
is  contained  in  lines  270-300.  Lines 
120  and  130  print  a  prompt  on  the 
screen,  and  call  the  new  input  rou- 
tine with  GOSUB  190.  When  using 
this  routine  in  your  own  programs, 
you  should  use  a  similar  GOSUB 
whenever  you  want  to  input  a  new 
string.  Note  that  the  string  is  re- 
turned in  the  variable  A$  (line  140). 

The  BASIC  subroutine  calls  the 
ML  routine  (CALL  768)  to  bring  the 
input  string  into  the  computer's 
memory.  Using  the  ROM  GETLN 
routine,  the  ML  routine  first  moves 
the  string  into  the  input  buffer.  Then 
it  stores  the  string's  length  in  loca- 
tion 798,  subtracts  128  from  each 
character's  value  to  obtain  the  cor- 
rect ASCII  codes,  and  returns  con- 
trol to  BASIC. 

Lines  ,200-260  move  the  string 
from  the  input  buffer  to  a  safe  place 
in  memory  where  it  can  accessed  by 
the  main  program.  The  vehicle  for 
this  transfer  is  the  string  variable  T$, 


which  you'll  recall  was  the  first  vari- 
able defined  in  the  program.  This  is 
done  so  that  you  can  find  the  de- 
scriptor for  T$  by  PEEKing  the 
pointer  in  locations  105-106. 

Variable  Descriptors 

As  you  may  know,  a  simple  variable 
descriptor  consists  of  five  bytes  in 
the  following  form: 


e  # 

Function 

1  = 

First  letter  of  the  variable's 

name 

z  = 

Second  letter  of  the  name 

3  = 

Length  of  the  variable 

4  = 

Low   byte   of   the   variable's 

memory  address 

5  = 

High  byte  of  the  variable's 

memory  address 

By  manipulating  the  descriptor 
for  the  variable  T$,  it  is  relatively 
simple  to  transfer  the  string  from  the 
input  buffer  (where  it  would  quickly 
be  overwritten)  to  another  string 
variable  (A$  in  example  program). 

After  the  descriptor  is  located 
(line  210),  its  third  byte  is  POKEd 
with  the  length  of  the  string  (line 
220),  and  the  fourth  and  fifth  bytes 
are  POKEd  with  the  low  byte/high 
byte  address  of  the  input  buffer 
(lines  230-240).  T$  is  now  set  to  the 
correct  length  and  its  descriptor 
points  to  the  input  buffer. 

The  final  step  (line  250)  is-  to 
copy  T$  into  A$,  using  a  form  of  the 
MIDS  function  that  extracts  every 
character  from  T$,  You  may  substi- 
tute other  names  for  T$  and  A$,  of 
course,  when  using  this  routine  in 
your  own  programs. 

Applesoft  Universal  Input 

laa  T«  -  ■'■' 

110  FOR  I  =  768  TO  798:  READ  A; 

POKE  I, A:  NEXT 
120  HOME 
130  PRINT  "INPUT  ANYTHINS"!  EDS 

UB  190 
140  PRINT  "ANYTHING==>  " ; A* 
150  PRINT 
160  INPUT  "ANY  MORE?  (Y  OR  N)  " 

5YT» 
170  IF  YT«  =  "Y"  THEN  120 
180  END 
190  CALL  768 
200  Bl  =  PEEK  (798) 
210  B2  =  PEEK  (106)  *  236  +  PEE 

K  (105) 
220  POKE  B2  +  2,B1 
230  POKE  B2  +  3,0 
240  POKE  B2  +  4,2 
250  A«  =  MID»  (T«, 1) 
260  RETURN 
270  DATA   169,190,133,51,32,106 

,253, 142 
280  DATA   30,3,164,0,204,30,3,2 

40 
290  DATA   12,185,0,2,41,127,153 

300  DATA   2,200,76,12,3,96,0,0© 
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Hardcopy  Sprites 
For  Commodore  64 


Thomas  H.  White 


Make  a  hardcopy  printout  of  any  Com- 
modore 64  sprite  loith  this  BASIC  pro- 
gram for  the  VlC-1525.  MPS-801,  or 
MPS-802  printer.  It's  easily  adapted  to 
other  printers  as  luell. 


Have  you  ever  wished  you  could 
print  a  sprite  on  paper?  For  example, 
you  may  want  to  check  some  detail 
on  a  sprite  you  designed  without 
bothering  to  load  and  run  the  pro- 
gram. With  "Hardcopy  Sprites," 
you  can  check  such  details  in  sec- 
onds rather  than  minutes,  and  even 
compile  a  personal  library  of  sprite 
shapes  for  future  reference. 

Ordinary  screen  dump  pro- 
grams can't  make  sprite  printouts 
because  the  data  that  defines  sprite 
shapes  isn't  located  in  regular  screen 
memory.  To  print  out  a  sprite,  you 
need  a  program  that  reads  the  64- 
byte  memory  area  where  the  sprite 
shape  is  actually  stored. 

Hardcopy  Sprites  uses  this 
technique  to  print  a  24  X  21  charac- 
ter representation  of  any  sprite,  with 
vertical  or  horizontal  expansion  if 
you  wish.  Large  ball-shaped  charac- 
ters form  single-color  sprites,  and 
additional  characters  represent  mul- 
ticolor sprites.  Figures  1  and  2  show 
two  examples  of  what  is  possible. 

After  typing  and  saving  the 
program,  PC)KE  your  sprite  data  into 
memory  and  note  the  address  where 
it  begins.  Then  simply  run  Hard- 
copy  Sprites  and  follow  the 
prompts.  The  program  asks  you  to 
enter  the  memory  address  where  the 
sprite  data  begins,  to  give  the  sprite 
a  descriptive  name,  to  choose  hori- 
zontal or  vertical  expansion  {or 
both),  and  to  select  single-color  or 
multicolor  mode. 

Non<Commodore  Printers 

Hardcopy  Sprites  is  written  for 
Commodore  printers,  but  is  readily 
adapted  to  other  printers.  If  your 
printer   can't   handle   Commodore 
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graphics,  replace  the  ball-shaped 
Commodore  graphics  character 
(SHIFT-Q  in  the  program  listing)  in 
lines  200,  210,  230,  340,  and  360 
with  some  other  character,  such  as 
an  X  or  a  plus  sign.  With  a  little  extra 
work,  you  could  also  incorporate 
Hardcopy  Sprites  as  a  subroutine 
within  a  BASIC  sprite  editor 
program. 

Figure  1 :  Expanded  Single- 
Color  Sprite 
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Figure  2:  Unexpanded  Multi- 
color Sprite 
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Hardcopy  Sprites 

Pleose  refer  to  "COMPUTErs  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 

10  REM  **  SPRITE  HARDCOPY  ** 

:rein   30 
20    INPUT"  [CLRHDOiraJ  SPRITE    DAT 
A   MEMORY   LOCATION" ;PG 

:rem   207 

30  INPUT" [CLR 5 (DOWN} EXP AND  X  D 

IR.  (Y/N)";EX$       :rem  35 


40  INPUT" (7  SPACESlY  DIR.  (y/N 

)" rEY5  :rem  194 

45  INPUT" {DOWNl SPRITE  NAME":N5 

:rem  243 

47  INPUT" {DOWN} MULTICOLOR  MODE 

(y/N) ";M5  :rem  82 

50  0PEN1,4  :rem  40 

55  PRINTS 1,CHR$( 15) "MEMORY  LOC 

ATION"PG"{2  SPACES) "N$ 

:rem  242 
60  FORR=0TO60STEP3  : rem  132 
70  FORC=0TO2:P=PEEK(PG+R+C) 

: rem  146 

80  FORB=7TOHSTEP-l:V(B)=P/2:P= 

INT(V(B))  :rem  111 

90  V(B)=V{B)-INT{V(B) ) :rem  202 

100  IFV(B)>0THENGOSUB200 

J  rem  184 
110  IFV(B)=0THENGOSUB250 

:rem  189 
120  NEXTB  :rem  20 

130  FORB=0TO7:L5=L5+D?(B) 

:rem  129 

140  NEXTB:NEXTC        : rem  210 

150  IFEY$<>"Y"THENPRINT#1,CHRS 

(15)+CHR?( 16)+"2S"+L$+CHR$ 

(8)  :rem  255 

160  IFEY5="Y"THENFORRE=0TO1 :PR 

INT#1,CHR5(15)+CHR5(16)+"1 

6"+L?+CHR5(8) :NEXTRE 

:rem  201 

170  L?="":NEXTR         : rem  84 

180  PRINT#1:CL0SE1 :END:rem  108 

200  D$(B)="Q"  :rem  223 

210  IFM5="N"ANDEX5="Y"THEND5 ( B 

)="QQ"  :rem  29 

220  IFHS="Y"ANDEX?="N"THENGOSU 

B300  ,:rem  19 

230  IFM?="Y"ANDEX$="Y"THEND5 (B 

)="QQ":GOSUB320    ; rem  121 

240  RETURN  : rem  118 

250  D$(B)="  "  :rem  19 

260  IFH$="N"ANDEX$="Y"THEND5{B 

)="(2  SPACES}"     :rem  128 

270  IFM$="Y"ANDEX?="N"THENGOSU 

B340  :rem  28 

280  IFM$="Y"ANDEXS="Y"THEND$ (B 

)="{2  SPACES}" !GOSUB360 

:rem  224 

290  RETURN  : rem  123 

300  IFB=6ORB=4ORB=2ORB=0THENIF 

D?(B+1)="  "THENDS(B+1)="0" 

:D9(B)="0"         :rem  123 

310  RETURN  :rem  116 

320  IFB=6ORB=4ORB=2ORB=0THENIF 

D$(B+1)="{2  SPACES }"THEND5 

(B+1)="00":D$(B)="00" 

I  rem  226 

3  30  RETURN  : rem  118 

340  IFB=6ORB=4ORB=2ORB=0THHNIF 

D5(B+1)="Q"THEND5{B+1)="0" 

;D$(B)  =  "0'^         :rem  147 

350  RETURN  : rem  120 

360  IFB=6ORB=4ORB=2ORB=0THENIF 

D5(B+1)="QQ"THENDS(B+1)="0 

0":D$(B)="0O"        :rem  4 

370  RETURN         :  rem  122   if* 


IBM  Variable  Lister 


Peter  F.  Nicholson 


This  handy  utility  lists  all  the  vari- 
ables in  your  IBM  BASIC  programs.  It 
runs  on  any  PC  with  at  least  64K  RAM 
or  PCjr  with  at  least  128K  RAM. 


The  ability  to  list  variables  is  a  valu- 
able aid  in  debugging  and  docu- 
menting BASIC  progranns.  The  three 
programs  accompanying  this  article 
show  how  IBM  BASIC  variables  are 
stored  and  let  you  list  the  variables 
in  any  IBM  BASIC  program. 

"Variable  Lister"  (Program  3)  is 
the  actual  utility.  Programs  1  and  2 
demonstrate  how  IBM  BASIC  stores 
variables  for  those  who  are  interest- 
ed in  the  details  (see  below).  But  you 
don't  have  to  be  familiar  with  the 
theory  to  use  Variable  Lister. 

The  first  step  is  to  type  in  and 
save  Program  3.  (Note:  All  three 
programs  assume  that  your  screen  is 
in  the  80-column  mode.  Enter 
WIDTH  80  from  BASIC  or  MODE 
80  from  DOS  before  running  the 
programs.) 

Once  Variable  Lister  is  saved  on 
disk,  there  are  two  ways  to  run  it. 
The  easiest  way  is  to  run  your  own 
program  first,  break  out,  then  acti- 
vate Variable  Lister  with  the  CHAIN 
command.  For  example,  if  you  have 
saved  Variable  Lister  under  the  file- 
name "VARLIST,"  enter  CHAIN 
"VARLIST",70,ALL  and  press  EN- 
TER. This  preserves  your  program's 
variables  while  Variable  Lister  loads 
and  runs. 

After  doing  this.  Variable  Lister 
replaces  your  program  in  memory.  If 
you  want  to  get  a  variable  list  while 
your  program  remains  in  memory, 
yiju  need  to  renumber  Variable  List- 
er with  line  numbers  not  used  in 
your  program,  and  then  merge  it 


with  your  program  using  CHAIN 
MERGE.  See  the  IBM  BASIC  Manual 
for  details. 

Of  course,  Variable  Lister  uses 
variables  of  its  own.  To  avoid  confu- 
sion, these  variables  (BAS,  XLEN, 
CTA,  CTV,  III,  JJl,  ADO, 
VARNAMES,  ARRNAMES,  ITV!, 
and  TESTARRAY)  are  suppressed 
from  the  variable  list,  and  should 
not  be  used  by  your  program. 

The  subroutine  beginning  at 
line  820  sorts  variables  and  arrays 
alphabetically.  There  may  be  times 
when  you'd  rather  display  them 
chronologically  (the  order  in  which 
they're  defined  as  the  program 
runs).  This  is  easily  done  by  deleting 
the  statement  GOSUB  820  from 
lines  500  and  520. 

How  It  Works 

IBM  BASIC  uses  four  types  of  vari- 
ables— integer,  string,  single- 
precision,  or  double-precision.  The 
term  scalar  describes  all  variables 
that  are  not  arrays.  Appendix  I  of  the 
IBM  BASIC  Manual  explains  how 
and  where  scalars  are  stored.  Page  I- 
2  of  this  appendix  shows  where  the 
scalar  storage  area  starts,  and  pages 
1-3  and  1-4  explain  the  meaning  of 
the  data  stored  there. 

If  you  want  to  see  a  graphic 
illustration  of  scalar  variable  stor- 
age, type  in  and  save  Program  1, 
then  enter  RUN.  The  program  de- 
fines four  variables — each  a  differ- 
ent type — and  displays  the 
descriptor  bytes  that  describe  each. 
You'll  see  two  columns  of  numbers 
for  each  variable.  The  left  column 
provides  a  reference  number  for 
each  byte  of  the  descriptor,  and  the 
right  column  shows  the  value  that 
each  byte  contains. 


The  first  byte  of  the  descriptor 
indicates  the  variable  type.  This  byte 
contains  a  2  for  an  integer  variable,  3 
for  a  string,  and  4  or  8  for  a  single-  or 
double-precision  variable,  respec- 
tively. The  next  two  bytes  hold  the 
first  two  characters  of  the  variable 
name.  For  the  variable  A,  we  see  the 
value  of  65,  the  ASCII  code  for  the 
letter  A.  The  letter  B  is  shown  with 
an  ASCII  code  of  66,  and  so  on. 

When  a  variable  name  has 
more  than  two  characters,  the  fourth 
byte  of  the  descriptor  shows  the 
number  of  remaining  characters. 
The  additional  characters  are  stored 
immediately  after  this  byte,  with 
128  added  to  their  ASCII  codes. 
Thus,  where  the  variable  is  named 
ABC,  you  will  see  the  values  65  and 
66  (ASCII  codes  for  AB),  1  (the  num- 
ber of  remaining  characters),  and 
195  (128  +  ASCII  code  for  C).  The 
final  bytes  in  each  descriptor,  high- 
lighted in  reverse  video,  show  the 
value  given  to  each  variable. 

Array  Variables 

The  IBM  BASIC  Manual  gives  few 
details  about  how  and  where  array 
variables  are  stored.  However,  its 
memory  map  does  show  that  sca- 
lars, arrays,  and  strings  occupy  three 
contiguous  areas  in  memory,  You 
can  use  these  formulas  to  find  the 
boundaries  of  each  zone: 

PEEK(&H358)  +  256*  PEEK(&H359) 

Scalar  variable  space  starts 
PEEK(&H35A)  +  256*FEEK(&H35B)-1 

Scalar  variable  space  ends 

PEEK(&H35  A) -t- 256  •  PEEK(&H35B) 

Array  space  starts 
PEEK(&H35C)  +  256*PEEK(&H35D)-1 

Array  space  ends 

FEEK(&H35a  +  256*PEEK(&H35D) 

String  space  starts 
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(Of  course,  the  PEEKs  won't  return 
meaningful  results  until  your  vari- 
ables have  actually  been  declared. 
Prior  to  that  time,  the  storage  zones 
are  empty,  and  the  pointers  all  point 
to  the  same  place.) 

Like  scalars,  array  variables  can 
be  any  of  four  types:  integer,  string, 
single-precision,  or  double-precision. 
Thus,  the  first  part  of  an  array  de- 
scriptor is  the  same  as  a  scalar  de- 
scriptor— first  comes  a  type  byte, 
followed  by  the  characters  of  the 
array  name — but  additional  bytes 
are  needed  to  describe  the  more 
complex  structure  of  an  array.  The 
two  bytes  after  the  name  show  the 
number  of  bytes  needed  to  complete 
the  array;  this  includes  a  description 
of  the  array's  elements  and  dimen- 
sions, and  the  array  data  itself. 

The  next  byte  in  the  array  de- 
scriptor (highlighted  in  reverse  vid- 
eo) shows  the  number  of 
dimensions  in  the  array.  For  ex- 
ample, the  statement  DIM  A(2,200) 
creates  a  two-dimensional  array;  the 
statement  DIM  5(1,2,3,4,5,6)  creates 
an  array  with  six  dimensions.  Al- 
though it's  rarely  necessary  to  use 
more  than  a  few  dimensions,  IBM 
BASIC  lets  you  define  an  array  with 
as  many  as  255  of  them. 

The  DIM  statement  that  defines 
an  array  also  specifies  the  maximum 
number  of  elements  in  each  dimen- 
sion. The  array  descriptor  contains 
two  more  bytes  for  each  dimension 
in  the  array,  indicating  the  number 
of  elements  in  that  dimension.  An 
array  dimension  may  contain  a  max- 
imum of  32,767  elements.  If  the 
number  of  elements  is  not  specified, 
the  default  value  of  10  elements  is 
assigned. 

Program  2  graphically  illus- 
trates array  storage.  Its  display  is 
similar  to  that  of  Program  1,  using 
reverse  video  to  highlight  the  area 
allocated  for  the  array  dimension 
and  element  numbers. 

Lister  Details 

Strings  stored  in  program  lines  may 
not  be  stored  in  string  space.  For 
example,  say  that  your  program  has 
this  line: 

5  AS  =  "A":  B$  = 
STRING$<2,CHRS(65)) 

Variable  Lister  reports  both  A$  and 

B$  as  variables,  but  the  string  space 
is  only  two  bytes  long,  since  the 
character  A  for  A$  is  stored  in  line  5 


of  the  program  where  it  is  defined. 

Functions  defined  in  a  program 
are  indicated  by  the  FN  prefix  and 
are  listed  last  for  the  variable  type.  A 
function  is  shown  by  adding  128  to 
the  code  of  the  first  character.  If  your 
program  contains  DEF  FNAA%, 
Variable  Lister  displays  2,  193 
(65  +  128),  65,  0.  Where  your  pro- 
gram consists  of  the  line  5  A%  = 
1  :DEF  FNA%(X, Y)  =  X"2  +  Y'2,  Vari- 
able Lister  reports  A,  FNA,  X,  and  Y 
as  variables. 

The  program  lists  array  dimen- 
sions exactly  as  defined  in  your  DIM 
statement,  independent  of  the  OP- 
TION BASE  you  have  selected.  If 
your  program  consists  of  the  line  5 
DIM  A(2,2),  the  report  should  list 
A(2,2)  and  show  47  bytes  occupied. 
If  the  program  consists  of  5  OP- 
TION BASE  1:  DIM  A(2,2),  the  re- 
port should  list  A(2,2)  and  show  27 
bytes  occupied. 

Keep  in  mind  that  string  space 
is  filled  from  the  top  of  memory 
downward.  To  find  the  starting  ad- 
dress of  your  stack  area,  use 
PEEK(&H30A)  -f-  256  *  PEEK 
(&H30B).  Use  PEEK(&H32F)  +  256 
*  PEEK(&H330)  to  find  the  current 
string  space.  To  get  an  accurate  re- 
port, you  may  first  need  to  issue  a 
FRE("")  command  as  described  in 
the  manual. 

Finally,  Variable  Lister  cannot 
report  any  variable  that  your  pro- 
gram does  not  actually  use.  Consid- 
er this  example: 

5  D$  =  "I2-31-84":IF 
RIGHT$(D$,2)="8S"  THEN  A  =  l 

Since  the  IF  condition  can  never  be 
satisfied,  the  computer  never  exe- 
cutes A  =  l.  Variable  Lister  reports 
only  one  variable — D$, 

If  you  would  like  a  copy  of  this 
program,  send  a  formatted  disk  with 
a  self-addressed,  postage-paid  mail- 
er and  a  check  for  $3.00  to: 

Peter  F.  Nicholson 

1701  South  Princeton  Road  L 

Ottawa,  Kansas  66067 


Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  these  listings. 

Program  1 :  Scalar  Variable 
Storage 

BK  100  KEY  OFF:  DEF  SEEi  COLOR  7,0 
iCLSiPRINT  "HOW  SCALAR  Vfl 
RIABLES  ARE  STORED" I  PRINT 

L6  110  A7.-0:AB*="0":ABC=0sftBCD#= 
0 


ID  120  AD!>PEEK(&H33S)-«'25&«FEEK( 

8(H359) 
PI    130  PRINT  "INTEGER        STRI 

NO        StNQLE  PREC. 
DOUBLE  PREC. " 
Hll  140  FOR  J=l  TO  4 
BH  150  FOR  1-0  TO  PEEK  (AD !  ) +PEEK 

<ADI+3)+3 
«  160  IF  I>PEEK(AD!+3)+3  THEN  C 

OLOR  0,7  ELSE  COLOR  7,0 
CL  170  K=-PEEK(AD!+I) 
FB  1B0  LOCATE  1+5,  15*  (J-l)+l  :PRI 

NT  USING  "««»    "iljK; 
OJ  190  NEXT  I 
NB  200  AD!=AD!+PEEK(AD! )+PEEK(AD 

!+3)+4 
HE  210  NEXT  J 
BK  220  COLOR  7,0 
FK  230  PR  I  NT:  PR  I  NT  "INTEGER   AX= 

0" 
LD  240  PRINT  "STRING   AB«='0'" 
Ca  250  PRINT  "SINGLE  PRECISION 

ABC ! -0" 
J6  260  PRINT  "DOUBLE  PRECISION 

ABCDtt-0" 
CL  270  PRINT  STRING*  (5,  CHR*(  219) 

)}"  DATA  ") 
BP  280  LOCATE  15,1 

Program  2:  Array  Variable 
Storage 

EB  1000  KEY  OFF:  DEF  SEG:  COLOR  7, 

01 CLSs PRINT  "HOW  ARRAYS 

ARE  STORED": PRINT 
DH  1010  J=lt I=0:K=0:XLEN=0:OPTIO 

N  BASE  1 : '  DECLARE  ALL  V 

ARIABLE5  USED 
LP  1020  DIM  ABCD7.(1)  ,  ABC«(1)  ,AB! 

(2,l),AttCl)i  'DECLARE  SA 

MPLE   ARRAYS 
Dfl   1030   AD!=PEEK(!<H35A)+256«PEEK 

(ScH35B) 
JD   1040   PRINT   TAB (2); "INTEGER" ;T 

AB(1B> J "STRING" I  TAB (32) J 

"SINGLE  PREC. ") TAB (46)1 " 

DOUBLE  PREC. " 
EH  1050  WHILE  AD!<PEE(<((<H35C)+25 

6tPEEK  (&H35D)  - 1 :  XLENi=PEE 

K(AD!+3) 
JP  1060  FOR  1=0  TO  XLEN+-5+PEEKCA 

D ! +XLEN+4) +256«PEEK ( AD ! + 

XLEN+5) 
CF  1070  IF  I>XLEN+5  THEN  COLOR  0 

,7  ELSE  COLOR  7,0 
OL  1080  IF  I>XLEN+6+2»PEEKtAD!+X 

LeN+6)  THEN  COLOR  7,0 
a    1090  K-PEEK(AD!+I) 
an  1100  LOCATE  1+5,  15t  (J-l)+l!PR 

INT  USING  "«##     "j IjK} 
FE  1110  NEXT  I 
LP  1120  AD!=AD!+XLEN+6+PEEKCXLEN 

+AD ! +4) +256 » PEEK ( XLEN+AD 

!+5):J-J+l 
FH  U30  WEND 
OL  1140  LOCATE  19,1:PRINT  "VARIA 

BLESi"« PRINT  TAB(11)}"AB 

CDX(l)" 
CO  1150  PRINT  TAB(11);"ABC«(1)  " 
BB  1160  PRINT  TAB(11)}"AB!  (2,1)" 
m   1170  PRINT  TAB(ll); "A«(l)" 
KH  1180  PRINT  "ARRAY  DIMENSION  A 

ND  ELEMENTS  PER  D I MENS  10 

N  ")CHR«(219>|CHR*(219) J 
IE  1190  COLOR  7,0 
EE  1200  LOCATE  1,79 

Program  3:  Variable  Lister 

OJ  10  REM  PROGRAM  ANALYZES  DATA 
AREA  AND  PROVIDES  A  REPORT 
ON 
OB  20  REM   1.  SCALAR  VARIABLES 
NE  30  REM   2.  ARRAYS 
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SP  40  REM   3.  AMOUNT  OF  MEMORY  R 

EQUIRED  FOR  VARIABLES 
II  50  REM  INTERNAL  VARIABLES:  AD 
0!,BflS,CTV,CTA, III, JJ1,XLE 
N 
CL  60  REM  ARRAYS:  IT 

V  !  ,  VARNAME* ,  ARRNAME*  ,  TMPNA 
ME» 
m  70    DEF  SEG:  SCREEN  0:  WIDTH  B0-. 
COLOR  7,0: KEY  DFF:CLS:DN  E 
RRDR  GOTO  920 
OH  80  LOCATE  1,1:  PRINT  "SORTING 

VARIABLES  "; 
E6  90  BAS=l5DIM  TESTARRAY  (2)  :  TES 
TARRAY(0)=1: '  TEST  FDR  OPT 
ION  BASE 
CK  100  ERASE  TESTARRAY 
NK  110  AD0!=0:XLEN=0:CTV=-BAS:CT 

A— BAS:  IIl=0s  JJ1=0:DIM  IT 

V!tl0-BAS):'  DECLARE  INTE 

RNAL  VAR. 
ED  120  AD0f=PEEK(S<H35B)+25d.IPEEK 
(8<H359):  'COUNT  NUMBER  OF 
VARIABLES 
n    130  CTV=CTV+1:XLEN=PEEK(AD0'+ 

3) 
BJ  140  ftD0!=AD0!+PEEK(AD0' ) +XLEN 

+4 
DI    150    IF    AD0!<PEEK(S,H35A>+256»P 

EEK(t<H35B)-l    GOTO    130 
W    160    AD0l=PEEK(?<H35A)+25fitPEEH 

CSiH3SB)  :     '     COUNT    NUMBER    0 

F    ARRAYS 
FB    170    CTA=CTA+1:XLEN=PEEK(AD0'+ 

3) 
FH   180    AD0l=AD0l+XLEN+PEEK(AD0'+ 

4+XLEN) +2S6»PEEK(AD0!+5+X 

LEN)+6 
HH    190    IF    AD0!<PEEK(!iH35C)+256«P 

EEK(S<H35D)-1  GOTO  170 
BF  200  DIM  VARNAME*  (CTV)  jARRNAME 

«(CTA):  'DECLARE  STRINGS 

FOR  VAR.  AND  ARRAYS 
JH  210  GOSUB  590:  'GET  ADDRESS  0 

F  INTERNAL  VARIABLES 
m   220  CTV=-BAS:AD0:=PEEK(!<H35a) 

+256HPEEK  !S<H359) 
BE  230  XLEN=PEEK  (AD0!+3)  :FDR  III 

=1-BAS  TO  7-BAS:IF  AD0!=I 

TV;  (III)  GOTO  280 
KL  240  NEXT  1 1 1 :  CTV=CTV  +  1 
IF  250  VARNAME*  (CTV)=STR«  (PEEK  <A 

D0! ) )+CHR«(PEEK(AD0'+l) ) ! 

•BET  TYPE  AND  NAME 
KK  260    IF    PEEK!flD0'+2)  >0    THEN    VA 

RNAME*CCTV)=VARNHME*iCTv) 

+CHR«(PEEK(AD0!+2) > :FOR    I 

11=1    TO    XLEN! VARNAME* (CTV 

)=VARNAME«(CTV)+CHR«(PEEK 

(AD0!+3+IIl>-12B) jNEXT     II 

1 
IB  270  IF  PEEK(AD01)=3  THEN  VARN 

AME» (CTV) =VARNflME» (CTV) +" 

*" 
BC  280    AD0!=AD0!+PEEK<ftD0l>+XLEN 

+4 
6B  290    IF    AD0!<PEEKCI<H35A)+256*P 

EEK(S.H35B)-1    GOTO    230 
P«  300    CTA=-BAS:  AD0'=PEEK(«<H35A1 

+25AtPEEK(S.H35B> 
IP  310  XLEN=PEEK  (ftD0i+3)  :FnR  111 

=B-BAS  TO  10-BAS:IF  AD0 ' = 

ITVI (III)  GOTO  410 
CE  320  NEXT  I  1 1  :  CTA=CTA+1 
K   330  ARRNfiME*(CTA)=STR*(PEEH  (A 

D0 ! 1 ) +STRt (PEEK ( AD0 ' +6+XL 

EN> )+CHR«(PEEK(AD0'+l) ) : ' 

GET  TYPE  AND  NAME 
OE  340  IF  PEEK(AD0'4-2)  >0  THEN  AR 

RNAME* (CTA) =ARRNAMEt (CTA) 

+CHR*(PEEK(AD0'+2) ) :FOR  I 

11=1    TO    XLEN:ARRNAMEt (CTA 

)=ARRNAME* (CTA) +CHR* (PEEK 
(AD0!+3+IIl)-128) :NEXT    II 

1 


OC   350    IF    M1D»<ARRNAME*<CTA)  ,  2.  I 

)=."3"    THEN   ARRNAME*(CTA>  = 

ARRNAME«(CTA)+"«" 
LL   360    ARRNAME«{CTA)=ARRNAME«(CT 

A)+"  (" 
KJ    370    FOR     I  H=PEEK(AD0'+XLEN+6) 

TO    1    STEP    -1 
A«  380    ARRNAME$(CTA)=ARRNAME».(CT 

A) +STR* (PEEK ( AD0 ! +6+XLEN+ 

2«II l-l)+256«PEEK(AD0!+6+ 

XLEN+2»II1)-BAS) 
«E  390  IF  111=1  THEN  ARRNAME*(CT 

A)=ftRRNAME«(CTA)+") "  ELSE 
ARRNAME* ( CTA ) = ARRNAME* ( C 

TA)+",  ■' 

EJ  400  NEXT  III 

FN   410    AD0!=fiD0!+XLEN+PEEK(fiD0!+ 

4+XLEN)  +256tPEEK  ( AD0  !  <-5+X 

LEN)+6 
KL   420    IF   AD0!<PEEK(!cH35C)+256tP 

EeK(«<H35D>-l    BOTO    310 
AG   430    ITV!  (l-BAS)=PEEK{S<H35A)+2 

56»PEEK  ( 8,H35B)  -PEEK  (!.H35a 

)-256tPEEK(&H339)-64 
Gl    440    ITV!  (2-BAS)=PEEK(8<H35C)+2 

56*PEEK  (&H35D)  -PEEK  (tiH35A 

>  -256«PEEK  (S.H35B)  -102-3*  ( 

CTA+CTV+2tBAS> 

EK  450  FOR  II1=1-BAS  TO  CTAiARRN 
AME* (II1)=RIGHT«( ARRNAME* 
(III), LEN ( ARRNAME* ( 1 1 1 ) ) - 
1) 

HN  460  JJ1  =  INSTR(1,  ARRNAME*  (Ill> 
,CHR«(32) ):IF  JJ1>0  THEN 
ARRNAME* (III) =LEFT* (ARRNA 
ME*(II1) , JJ1-1)+MIDS(ARRN 
AME* (III) ,JJ1+1, LEN (ARRNA 
ME«(II1) )-JJl) 

EH  470  IF  JJ1>0  GOTO  460 

OP  480  NEXT  I II:  IF  CTV=-1  THEN  C 

TV=0  ELSE  IF  CTV=0  THEN  C 

TV=1 

FG  490  CLS:DIM  TMPNAME*  (CTV)  :  FOR 

II1=1-BAS  TO  CTV: TMPNAME 

« ( 1 1 1 ) =VARNAME* ( 1 1 1 ) : NEXT 

III 

KJ  500  JJ1=CTV-1: GOSUB  820:111=0 
t GOSUB  860: GOSUB  940: ERAS 
E  TMPNAME* :CLS: IF  CTA=-1 
THEN  CTA=0  ELSE  IF  CTA=0 
THEN  CTA=1 

OG  510  DIM  TMPNAME*  (CTA)  :  FOR  III 
=1-BAS  TO  CTA:TMPNAME«CII 
1)=ARRNAME*(II1) :NEXT  III 

CD  520  JJi=CTA-l:GDSUB  820:111=1 
I GOSUB  860: GOSUB  940: ERAS 
E  TMPNAME*, VARNAME*, ARRNA 
ME*:CLS 

GD  530  PRINT  "STRING  SPACE  USED 
",TAB(30)  ; 

Jft  540  AD0!=FRE("">  :AD0!=PEEK(!<H 
30A) -PEEK  (8cH32F) -1+256*  (P 
EEK(8!H30B)-PEEK(5<H330)  )  :P 
RINT  USING  "tt«tt«#";AD0! 

FL  550  PRINT  "SCALAR  VARIABLE  SP 
ACE", TAB (30) ; SPRINT  USING 
"tt###tt"!  ITV!  (1-BAS) 

BH  560  PRINT  "ARRAY  SPACE",  TAB  (3 
0) J  :  PRINT  USING  "«###»" | I 
TV! (2-BAS) 

DN  570  PRINT: PRINT  "TOTAL  VARIAB 

LE  SPACE  ", TAB (30);: PRINT 
USING  "#«#«#"; ITV! (1-BAS 

)+ITV! (2-BAS) +AD0I! SPRINT 
"   BYTES" 
yp  580  GOSUB  940 sCLS SEND 
DJ  590  ITVI  (1-BAS )=VARPTR(AD0!  ) - 

5! 'SUBROUTINE  TO  GET  INTE 

RNAL  ADDRESSES 
«F  600  ITV! (2-BAS )=VARPTR(XLEN> - 

6 


1\ 

610 

HC 

620 

GL 

630 

KI 

640 

HK 

650 

a 

660 

HI 

670 

EF 

680 

JD 

690 

DI 

700 

DD 

710 

HP  720 


DK  730 


EE 

740 

BL 

750 

NN 

760 

KP 

770 

FC 

780 

Ffl 

790 

SC 

800 

EK 

B10 

CE 

820 

Nn 

830 

in 

840 

01  S50 
«1  860 


DL  870 


BN  880 


NE  890 


on  900 


«F  910 
CI  920 


OL  930 
CN  940 


LJ  950 


ITV! (3-BAS)=VARPTR(CTV)-5 

ITV! (4-BAS)=VARPTR(CTA)-5 

ITV!  (S-BASJ-sVARPTRdlD-S 

I T V !  ( 6-B AS ) = VARPTR ( J  J 1 ) -5 

ITV! (7-BAS)=VARPTR(BAS)-5 

ITV! (8-BAS)=VARPTR<ITV! (1 

-BAS) >-10 

ITV! {9-BAS)=VARPTR(VARNAM 

E«( 1-BAS) )-14 

ITV! C10-BAS)=VARPTR( ARRNA 

ME* { 1-BAS) )-14 

FDR  1 1 1  =  1 -BAS  TO  9-BAS! IF 

ITV!(II1)<0  THEN  ITV! (II 
1)"2"16+ITV! (Ill) 
NEXT  IIlsRETURN 
XLEN=0sFOR  IIJ=1-BAS  TO  C 
TV 

IF  MID* (TMPNAME* (III), 1,2 
)-STR*(JJl)  AND  MID»(TMPN 
AME*  (III)  ,3,  IX  "a"  THEN  P 
RINT  MID* (TMPNAME* (I  ID ,3 
, LEN (TMPNAME* ( 1 1 1 >  >-2) +SP 
ACE* (2) } : XLEN=1 
IF  MID»(TMPNAME*(II1) , 1,2 
)=STR«(JJ1)  AND  MID«(TMPN 
AME* (I  II) ,3,1) >"a"  THEN  P 
RINT  "FN"+CHR*(ASC(MID*(T 
MPNAME«(II1) ,3, 1) >-128)+M 
ID* (TMPNAME* (III) ,4,LEN(T 
MPNAME*(IIl))-2)+SPACE*(2 
) ; :XLEN=1 
NEXT  III 

IF  XLEN=0  THEN  PRINT  "NON 
E" SPRINT: PRINT  ELSE  PRINT 
:PRINT 
RETURN 

FOR  1 1 1  =  1 -BAS  TO  CTA 
IF  LEFT*(ARRNAME*(II1),  1) 
=RIGHT«(STR*(JJ1) , 1)  THEN 

PRINT  MID* (ARRNAME* (III) 
,3, LEN (ARRNAME* ( 1 1 1 ) ) -2)  + 
SPACE* (2) ; :XLEN=1 
NEXT  III 

IF  XLEN=0  THEN  PRINT  "NON 
E":PRINT:PRINT  ELSE  PRINT 
•.PRINT 

XLEN=0: RETURN 
XLEN=l5WHILE  XLENs XLEN»0 
FOR  1 11=1 -BAS  TO  JJl 
IF  TMPNAME* ( II 1 ) >TMPN AME* 
(IIl+l)  THEN  SWAP  TMPNAME 
* ( 1 1 1 ) , TMPNAME* ( 1 1 1  +  1 )  !  XL 
EN>=1 

NEXT  III: WEND sRETURN 
IF  111=0  THEN  PRINT  "VARI 
ABLE  SPACE  "; ITV !( 1-BAS) ; 
"BYTES" :TMP«=""  ELSE  PR IN 
T  "ARRAY  SPACE  ";ITV!(2-B 
AS); "BYTES  QPTIDN  BASE  " 
;ABS(1-BAS) ; : TMP»="ARRAYS 

PRINTsPRINTsPRINT: PRINT  " 
INTEGER  "+TMP«+"  -  ";sJJl 
=2: IF  TMP*=""  THEN  GDSU6 
710  ELSE  GOSUB  770 
PRINT: PRINT: PRINT  "STRING 

"+TMP«+"  -  ";sJJl=3sIF  T 
MP*"""  THEN  GOSUB  710  ELS 
E  GOSUB  770 
PRINT: PRINT: PRINT  "SINGLE 

PRECISION  "+TMP«+"  -  ";: 
JJl-4iIF  TMP«=""  THEN  GOS 
UB  710  ELSE  GOSUB  770 
PR  I NT SPRINT  SPRINT  "DOUBLE 

PRECISION  "+TMP*+"  -  ";: 
JJ1-B:IF  TMP»=""  THEN  GOS 
UB  710  ELSE  GOSUB  770 
RETURN 

IF  ERR=9  AND  ERL=90  THEN 
BAS=0: RESUME  NEXT 
ON  ERROR  GOTO  0 
LOCATE  25,1: PR INT  "PRESS 
ANY  KEY  TO  CONTINUE"; 
KB*=INKEY«: IF  KB*=" "  GOTO 

950  ELSE  RETURN        @ 
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Apple  lie  RAM  Disk  Mover 

Part  2 


Last  month,  Part  1  of  this  two-part 
series  demonstrated  the  RAM  disk  and 
subdirectory  options  with  ProDOS  and 
the  Apple  Uc.  This  month's  article 
presents  a  utility  program  which  rap- 
idly copies  a  number  of  programs  from 
a  floppy  disk  to  the  RAM  disk,  greatly 
speeding  up  the  preparations  required 
for  using  the  RAM  disk. 

The  discussion  in  Part  1  was  a  bit  on 
the  theoretical  side,  but  this  month 
we  tackle  the  practical  side.  "RAM 
Disk  Mover"  is  a  program  which 
automates  the  processes  described 
in  Part  1.  It  adds  a  few  little  twists, 
however.  Here  is  how  RAM  Disk 
Mover  works: 

1.  First  it  looks  for  the  PROGRAMS 
subdirectory  on  your  floppy  disk.  If 
PROGRAMS  is  not  found,  RAM 
Disk  Mover  instructs  you  to  insert 
another  disk. 

2.  Next,  it  looks  in  the  RAM  drive 
for  the  PROGRAMS  subdirectory.  If 
PROGRAMS  is  not  found,  RAM 
Disk  Mover  creates  the  subdirec- 
tory. If  PROGRAMS  is  found,  it  de- 
letes all  of  the  files  in  PROGRAMS. 
This  makes  room  for  the  new 
programs. 

3.  RAM  Disk  Mover  goes  back  to  the 
floppy  PROGRAMS  subdirectory. 
Then  it  saves  the  name  and  length 
(in  blocks)  of  each  BASIC  program. 
It  stops  when  there  are  no  more 
BASIC  programs  or  when  the  num- 
ber of  blocks  exceeds  the  capacity  of 
the  RAM  drive  (118  blocks,  consid- 
ering the  directories). 

4.  Using  this  list  of  BASIC  programs, 
RAM  Disk  Mover  builds  an  EXEC 
file  containing  a  series  of  LOAD  and 
SAVE  commands.  The  EXEC  file  is 
named  TEMP.EXEC  and  is  stored  in 
the  volume  directory  of  the  floppy 
with  which  RAM  Disk  Mover  is  cur- 
rently working. 

5.  RAM  Disk  Mover  adds  a  RUN 
command  as  the  last  line  of  the 
EXEC  file.  The  program  specified  by 
the  variable  Pl$  will  start  automati- 
cally when  the  copy  operation  is 
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finished.  Right  now,  Pl$  is  set  up  for 
STARTUP.RAM.  You  can  change 
this  to  whatever  program  name  you 
want. 

6.  After  building  the  EXEC  file, 
RAM  Disk  Mover  clears  the  screen 
and  informs  you  that  all  is  well. 
Then  the  EXEC  file  starts  up.  At  this 
point,  programs  are  actually  moved 
from  floppy  disk  to  RAM  disk.  Your 
startup  program  will  run  and  you'll 
be  in  business. 

Preparing  The  Mover 

RAM  Disk  Mover  requires  little,  if 
any,  of  your  attention  while  it  runs. 
Your  biggest  job  is  to  organize  your 
disks  so  that  Mover  can  access  them 
properly. 

Here  are  some  guidelines  for 
trouble-free  operation: 

Format  some  disks  so  you'll  al- 
ways have  some  spares  handy.  Use 
whatever  volume  labels  suit  you. 

As  you  format  the  disks,  be  sure 
to  establish  the  PROGRAM  and 
DATA  subdirectories. 

Place  a  copy  of  Mover  in  the 
volume  directory  of  each  disk.  Mov- 
er does  not  require  much  space. 

Place  all  of  the  BASIC  programs 
you  want  Mover  to  copy  in  the 
PROGRAMS  subdirectory.  Don't 
forget  that  the  RAM  disk  has  a  limit 
of  about  61K  or  120  blocks.  If  you 
think  you  will  exceed  this  limit, 
place  some  of  the  programs  on  a 
second  disk. 

Putting  It  To  Work 

Now  for  the  actual  operation.  It's 
simple: 

1.  Always  make  sure  your  lie  is 
turned  on,  that  ProDOS  is  ready, 
and  that  you're  in  Applesoft. 

2.  Place  your  program  disk  in  the 
internal  disk  drive. 

3.  Type  either  RUN  MOVER  or 
-MOVER.  RAM  Disk  Mover  will 
take  over  from  there.  It  tells  you  the 
name  of  each  program  it  is  copying, 
then  starts  the  EXEC  file.  As  the 
EXEC  file  runs,  you  will  see  a  series 


of  open  brackets  displayed.  This 
means  all  is  well. 

4,  When  the  EXEC  file  is  done,  the 
STARTUP.RAM  program  will  begin 
running  if  it  is  present. 

5.  At  this  point,  you  can  remove 
your  floppy  disk  from  the  disk  drive. 
You  can  insert  a  data  disk  and  have 
the  entire  140K  free  for  data  storage. 

Now  What? 

RAM  Disk  Mover  has  done  its  job. 
The  BASIC  programs  have  been 
moved  over  to  the  RAM  disk.  Now, 
how  do  you  get  to  the  programs? 

If  you  want  to  run  a  program, 
you  can  type: 

RUN  /RAM/PROGRAMS/;)rogrflm- 

name 

or 

-  /RAM/PROGRAMS/;)rogrfljn-narae 

Perhaps  typing  all  this  seems  a 
bit  tedious.  You  can  use  the  PREFIX 
command: 

PREFIX  /RAM/PROGRAMS 

Now  whenever  you  want  to  run 
a  program,  you  can  just  type  RUN 
followed  by  the  program  name. 
/RAM/PROGRAMS/  is  automati- 
cally appended  to  the  front  of  the 
name. 

A  caution  is  in  order,  however. 
Suppose  that  your  program  per- 
forms some  file  operations.  If  the 
input/output  statements  do  not  in- 
clude a  full  path  name,  the  prefix 
will  also  be  applied  to  your  data  file 
commands.  This  will  cause  your 
program  to  try  to  read  or  write  to  the 
RAM  disk — probably  not  what  you 
intended.  Remember  this  when  us- 
ing the  PREFIX  command. 

You  can  also  use  the  usual 
LOAD  and  SAVE  commands,  of 
course.  But  this  time  a  warning  is  in 
order.  Yes,  you  can  recall  a  program 
from  the  RAM  disk,  work  on  it,  test 
the  revisions,  and  store  it  back  in  the 
RAM  disk.  Just  don't  forget  it's  only  a 
RAM  disk.  If  the  power  goes  ka- 
plooey,  then  your  program  goes  ka- 
plooey  along  with  it.  If  you  make 
important  changes  to  a  program. 


save  the  new  version  on  a  real  live 
disk.  The  RAM  disk  is  best  for  pro- 
grams you  just  want  to  run. 

Oops! 

On  occasion  things  can  go  wrong — 
especially  where  computers  are  con- 
cerned. Here  are  a  few  gotchas. 
Watch  out  for  them, 

•  RAM  Disk  Mover  is  designed  for 
an  Apple  lie  and  ProDOS.  It  uses  the 
80-column  display  capability  of  the 
lie.  If  the  display  looks  funny,  make 
sure  your  computer  is  in  the  80- 
column  mode. 

•  Mover  attempts  to  use  all  of  the 
available  RAM  drive  space.  It  will 
clean  up  /RAM/PROGRAMS,  but 
it  is  not  aware  of  anything  else  that 
you  may  have  in  the  RAM  drive.  If 
you  run  out  of  room,  ProDOS  will 
tell  you  about  it  loudly  and  clearly. 

•  There  can  be  problems  writing  the 
EXEC  file.  Do  not  remove  your  pro- 
gram disk  until  RAM  Disk  Mover  is 
finished  with  it.  Do  not  write- 
protect  it,  either.  Finally,  leave  a  few 
blocks  free  for  Mover's  use.  That 
EXEC  file  has  to  go  somewhere. 

Additional  Hints 

Programs  can  run  other  programs.  If 
the  programs  are  in  the  RAM  disk, 
switching  from  program  to  program 
is  almost  instantaneous.  Here's  an 
example: 

10  REM  PROGRftMl 
20  D*=CHR«(4> 

30  PRINT  "PROGRAM  1  IS  RUNNING" 
40  PRINT  D«; "-RfiM/PRDGRAMS/PRDG 
RAM2" 

10  REM  PRQGRAM2 
20  D«=CHR«(4) 

30  PRINT  "PROGRAM  2  IS  RUNNING" 
40  PRINT  D«; "-RAM /PROGRAMS /PROG 
RAMI" 

How  about  that!  Keep  this  tech- 
nique in  mind  when  you  are  writing 
that  huge  program  that  eats  all  the 
available  program  space.  The  way 
out  is  to  think  small  and  think  RAM 
drive.  ProDOS  even  has  a  CHAIN 
statement  that  permits  variables  to 
be  passed  between  programs. 

If  you  would  like  to  learn  more 
about  ProDOS,  find  a  copy  of  Ap- 
ple's BASIC  Programming  u'ith  Pro- 
DOS.  It  covers  all  the  ProDOS 
features  available  from  Applesoft 
BASIC. 

Apple  lie  RAM  Disk  Mover 

100  REM  MOVE  /... /PROGRAMS  TD  / 

RAM/PROGRAMS  ( MOVER ) 
110  REM 
120  PFS  =  "/RAM/PROGRAMS/" 


130  PI*  "    "STARTUP. RAM" 

140  RB  =  118:  REM  /RAM  BLOCKS  A 

VAILABLE 
150  MP  =  50:  REM  MAX  PROGRAMS 
160  DIM  PNt(MP) 
170  HOME  :D»  =  CHR*  (4)!  PRINT 

D«; "PRtt3" 
180  G05UB  330:  REM  TITLE 
190  GOTO  400:  REM  OPEN  DIRECTOR 

Y 
200  GOTO  650:  REM  CREATE  /RAM  D 

IRECTORY 

210  GDSUB  860:  RtM  MOVE  PROGRAM 

S 
220  REM 
230  REM  THE  EXEC  PROGRAM  WILL  M 

OVE  THE  PROGRAMS 
240  REM 
250  HOME 
260  VTAB  12:  HTAB  1:  PRINT  "Run 

ning  the  EXEC  copy  program 

270  FOR  I  ■=  1  TO  1000:  NEXT 

2B0  PRINT  D«;"EXEC  " ; FL« 

290  HOME 

300  VTAB  12:  HTAB  1:  PRINT  "Pro 

grams  are  being  copied  to:" 

;PF$ 
310  FDR  I  =  1  TO  1000:  NEXT 
320  END 

330  REM  PROGRAM  TITLE 
340  UL«  =  "":  FOR  I  =  1  TO  B0!U 

L*  =  UL«  +  "_":  NEXT 
350  TL*  =  "DISK  TO  /RAM  PROGRAM 

MOVER " 
360  HOME  !  VTAB  1:  HTAB  I:  PR IN 

T  ULt 
370  VTAB  3:  HTAB  (80  -  LEN  <TLS 

) )  /  2:  PRINT  TL« 
3B0  VTAB  4:  HTAB  1:  PRINT  UL* 
390  RETURN 
400  REM  OPEN  /.../PROGRAMS  DIRE 

CTORY 
410  GOSUB  590:  REM  GET  VOLUME  L 

ABEL 
420  DR$  =  VL»  +  "PROGRAMS/" 
430  VTAB  6:  HTAB  1:  PRINT  "Movi 

ng  programs  ■from  "  ;  DR* 
440  ONERR  GOTO  480 
450  PRINT  D«;"OPEN  ";DR«;",TDIR 

460  POKE  216,0:  REM  NORMAL  ERR 
470  GOTO  200 

480  POKE  216,0:  REM  NORMAL  ERR 
490  CALL  -  3288:  REM  FIX  STACK 
500  VTAB  B:  HTAB  1:  PRINT  "The 

directory  '/PROGRAMS/'  is  n 

ot  on  the  diskette  ";VL* 
510  VTAB  10:  HTAB  1:  PRINT  "Ins 

ert  the  proper  diskette." 
520  VTAB  12:  HTAB  1:  PRINT  "Pre 

ss  SPACE  to  continue.   Pres 

s  RETURN  to  stop. " 
530  GET  CS:  IF  C*  <  >  "  "  AND  C 

«  <   >   CHR«  (13>  THEN  530 
540  FOR  I  =  6  TO  12  STEP  2 
550  VTAB  I:  HTAB  1:  PRINT  SPC ( 

79);  CHR*  (13) 
360  NEXT 

570  IF  C«  =  CHR*  (13)  THEN  STOP 
580  GOTO  400 
590  REM  GET  VOLUME  LABEL 
600  PRINT  D«; "PREFIX  /" 
610  PRINT  D»; "PREFIX" 
620  INPUT  VL« 
630  PRINT  D* 
640  RETURN 

650  REM  CREATE  /RAM/PROGRAMS/ 
660  VTAB  B:  HTAB  1:  PRINT  "Movi 

ng  programs  to  ":PF* 
670  ONERR  GOTO  820 
680  PRINT  D*;"OPEN  ";PFt:",TDIR 


690 

PRINT  D*;"READ  " ; PF« 

700 

INPUT  H« 

710 

INPUT  L2» 

720 

INPUT  L3« 

730 

INPUT  L44;  IF  L4«  =  " "  THEN 

770 

740 

T«  =  MID*  (L4«.2, 15) 

750 

NP  =  NP  +  !:PN*(NP)  -  T* 

760 

GOTO  730 

770 

PRINT  D«; "CLOSE  " ; PF« 

780 

FDR  I  =  1  TD  NP 

790 

PRINT  D* J "DELETE  " ; PFt ; PN* ( 

I) 

800 

NEXT 

B10 

GOTO  210 

820 

POKE  216,0:  REM  DIRECTORY  N 

OT  PRESENT 

830 

CALL  -  3288:  REM  FIX  STACK 

840 

PRINT  D*; "CREATE  " ; PF* 

850 

GOTO  210 

860 

REM  MOVE  PROGRAMS 

S70 

NP  =  0:  REM  NUMBER  OF  PROGR 

AMS 

ae0 

BC  =  0:  REM  BLOCK  COUNT 

890 

PRINT  D«;"READ  " ; DR* 

900 

INPUT  LI*:  REM  DIRECTORY  NA 

ME 

910 

INPUT  L2«:  REM  TITLE  LINE 

920 

INPUT  L3«:  REM  BLANK  LINE 

930 

INPUT  L4«:  REM  FILE  ENTRY 

940 

IF  L4«  =  ""  THEN  970 

950  GOSUB  1000:  REM  SAVE  PGM  NA 

MES 
960  GOTO  930 
970  PRINT  D*; "CLOSE" 
9B0  GOSUB  1160:  REM  BUILD  EXEC 

FILE 
990  RETURN 
1000  REM  SAVE  PGM  NAMES 


1010  IF  MID*  (L4«,18,3> 
S"  THEN  1150 
NP 
NP  > 

BC 


1020  NP 
1030  IF 
1040  BC 

23,6)  > 
10S0  IF  BC  > 


+  1 

MP  THEN  1150 

+  VAL  (  MID* 


"BA 


(L4*, 


RB  THEN  11S0 


1060  T«  =  MID*  (L4*,2,15> 
1070  FOR  K  =  15  TD  1  STEP  -  1 
1080  IF  MID*  (T*,K,1)  <  >  "  "  T 

HEN  1100 
1090  NEXT 
1100  PN*(NP)  =  LEFT*  (T«,K) 

1110  IF  PN*(NP)  =  PI*  THEN  SU  = 

1 
1120  VTAB  10:  HTAB  1:  PRINT  SPC 

(  79) ;  CHR*  (13) 
1130  VTAB  10:  HTAB  l!  PRINT  "Co 

pying  ";PN*(NP);"  " 

1140  FOR  K  =  1  TD  500:  NEXT 

1150  RETURN 

1160  REM  BUILD  EXEC  FILE 

1170  VrAB  10:  HTAB  1:  PRINT  SPC 

(79);  CHR*  (13) 
11B0  VTAB  10;  HTAB  1:  PRINT  "Bu 

i I  ding  EXEC  copy  program  . 


1190 

FL«  =  "TEMP. EXEC" 

1200 

PRINT  D«!"OPEN  " ; FL* 

1210 

PRINT  D*; "CLOSE  " ; FL* 

1220 

PRINT  D»;"DELtlt  " ! FL* 

1230 

PRINT  D»;"OPEN  " ; FL* 

1240 

PRINT  D*; "WRITE  ";FL* 

1250 

FOR  I  =  1  TO  NP 

1260 

PRINT  "LOAD  ";VL«;"PRDGRAM 

S/ " ; PN* ( I ) 

1270 

PRINT  "SAVE  ";PF«;PN«(I} 

12S0 

NEXT 

1290 

IF  SU  =  1  THEN  PRINT  "-";P 

F*;P1* 

1300 

PRINT  "PRINT: PRINT" 

1310 

PRINT  D«; "CLOSE"          -s 
RETURN                    'Q 

1320 
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Commodore  Disk  Editor 


Martin  Sikes 


Examine  or  edit  any  sector  on  a  disk 
with  this  short,  useful  program  for  tlie 
Commodore  64  and  1541  disk  drive. 
Recommended  for  intermediate  to  ad- 
vanced users. 


One  of  the  best  ways  to  learn  about 
disk  storage  is  to  look  at  the  actual 
contents  of  sectors  on  the  disk. 
"Commodore  Disk  Editor"  lets  you 
do  just  that  and  even  change  the 
contents  if  you  wish.  Equipped  with 
this  tool,  you  can  repair  garbled 
disks,  retrieve  accidentally 
scratched  files,  as  well  as  protect 
your  programs  against  tampering  by 
others. 

To  make  the  most  of  Disk  Edi- 
tor, you'll  need  to  know  at  least  the 
basics  of  Commodore  disk  storage. 
Consult  your  1541  User's  Manual. 
Additional  information  also  is  avail- 
able in  various  books  and  program- 
ming guides.  Even  without 
advanced  knowledge,  however,  you 
can  perform  some  interesting  tricks. 
A  few  examples  are  given  below. 

To  get  started,  type  in  the  pro- 
gram and  save  it.  When  running  it 
for  the  first  time,  put  an  unimportant 
disk  in  the  drive.  Making  mistakes 
with  a  program  like  this  can  scram- 
ble a  disk  and  render  it  useless.  Until 
you  have  gained  some  experience, 
practice  on  an  unimportant  disk. 
Make  a  backup  copy  of  any  impor- 
tant disk  before  you  try  to  alter  it. 

Reading  And  Editing 
Blocks 

Disk  Editor  begins  by  prompting 
you  to  enter  track  and  sector  num- 
bers of  the  block  of  data  you  want  to 
examine.   Commodore   1541   disks 
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have  35  tracks,  and  each  track  con- 
tains a  number  of  sectors.  (The 
terms  sector  and  block  are  often  used 
interchangeably  to  describe  a  256- 
byte  data  area  on  the  disk.)  The 
available  track  and  sector  numbers 
are  listed  below.  Tracks  1-17  each 
have  21  sectors,  numbered  0-20, 
and  so  on. 


Tracks 


Sectors 


1-17 

0-20 

18-24 

0-18 

25-30 

0-17 

31-35 

0-16 

To  choose  a  particular  sector, 
you  must  enter  two  numbers  sepa- 
rated by  a  comma.  The  program 
does  not  let  you  enter  nonexistent 
track  or  sector  values,  with  the  ex- 
ception noted  below.  For  example, 
enter  18,1  and  press  RETURN  to 
examine  track  18,  sector  1  (this 
block  holds  the  first  part  of  the  disk 
directory).  Disk  Editor  reads  that 
block  from  the  disk  and  displays  its 
contents  at  the  top  of  the  screen. 

Disk  Editor  displays  the  block 
using  the  upper-/lowercase  charac- 
ter mode.  Thus,  the  values  on  the 
screen  correspond  to  the  numbers  in 
your  64  User's  Guide  screen  code 
table:  A  zero  is  displayed  as  an  @ 
character,  13  as  a  lowercase  m,  and 
so  on. 

The  next  prompt  asks  whether 
you  want  to  edit  the  block  displayed 
on  the  screen.  Press  Y  to  edit,  or  N  to 
choose  another  sector.  If  you  select 
Y,  press  the  cursor  keys  to  move  the 
blinking  cursor  atop  the  character 
you  want  to  change.  Then  type  in 
the  new  character  over  the  old  one. 
For  instance,  if  the  first  filename  in 
your  directory  is  DOG,  you  can 
change  the  name  to  BOG  simply  by 
typing  SHIFT-B  over  the  D. 

When  your  editing  is  complete. 


you  again  have  two  options.  You 
can  press  RETURN  to  write  the 
changed  block  back  to  the  disk,  or 
press  the  fl  special  function  key  to 
escape  the  editing  mode  without 
changing  anything  on  the  disk.  In 
either  case,  you'll  return  to  the  first 
prompt,  so  you  can  read  the  same 
sector  again  to  verify  your  changes 
or  proceed  to  another  sector.  To  exit 
the  program,  enter  track  99,  sector 
99  at  the  first  prompt.  These  are  the 
only  nonexistent  track  and  sector 
numbers  that  Disk  Editor  allows  you 
to  enter. 

Don't  Boggle  The  BAM 

You've  already  seen  how  to  change 
filenames  by  editing  directory 
blocks.  The  disk  name  can  be 
changed  just  as  easily,  by  editing 
track  18,  sector  0.  Note  that  these 
names  cannot  be  more  than  16  char- 
acters long. 

Sector  0  of  track  18  contains  the 
Block  Availability  Map,  or  BAM — 
important  information  about  the  or- 
ganization of  programs  on  the  disk. 
It's  very  easy  to  damage  files  by 
improperly  changing  things  in  this 
sector.  Until  you're  familiar  with  the 
BAM,  avoid  changing  anything  in 
this  sector  other  than  the  disk  name. 

You  may  notice  that  a  copy  of 
the  disk  ID  follows  the  disk  name  in 
the  BAM.  However,  you  camiot 
change  the  disk  ID  by  changing  this 
value  in  the  BAM.  (You  can  change 
the  value  of  the  ID  shown  in  sector 
0,  but  this  won't  change  the  disk  ID; 
there's  no  way  to  do  that  without 
reformatting  the  disk.) 

Hidden  Programs 

Lots  of  tricks  are  possible  with 
Disk  Editor.  Perhaps  you'd  like  to 
conceal  a  program's  name  to  make 
it  difficult  for  others  to  find  in  the 


directory.  Directory  lists  are  dis- 
played on  the  screen  with  the 
equivalent  of  PRINT,  so  it's  easy  to 
disrupt  the  list  by  inserting  control 
characters  in  a  filename. 

For  instance,  you  might  conceal 
the  filename  DOG  by  adding  three 
delete  characters  after  the  name. 
The  ASCII  table  in  your  64  User's 
Guide  tells  you  that  a  delete  charac- 
ter has  a  value  of  20.  This  corre- 
sponds to  lowercase  t  in  the  screen 
code  table,  so  you  simply  type  three 
f's  after  DOG.  Now  the  program 
appears  as  ""  when  you  list  the 
directory.  But  you  can  still  load  the 
program  with  the  filename  DOG*  or 
DOG???.  It  can  also  be  loaded  with 
the  line  A$  =  "DOG"  +  CHR$(20) 
+  CHR$(20)  +  CHR${20):  LOAD 
A$,8. 

Most  characters  are  easily  en- 
tered from  the  keyboard.  To  enter  a 
reverse  video  character,  press 
CTRL-9  before  typing  the  character. 
Disable  reverse  video  by  pressing 
CTRL-0. 

Like  many  protection  methods, 
of  course,  these  simple  tricks  are 
only  effective  against  people  who 
know  less  than  you  do.  It's  not  very 
difficult  to  write  a  BASIC  program 
that  displays  a  directory  without  us- 
ing PRINT  statements.  If  your 
friends  also  are  familiar  with  Disk 
Editor,  your  attempts  at  conceal- 
ment will  be  utterly  transparent. 
Nevertheless,  such  methods  should 
be  sufficient  to  deter  casual  users. 

As  your  knowledge  grows, 
you'll  find  more  practical  uses  for 
Disk  Editor,  such  as  changing  the 
file  type  to  prevent  a  program  from 
being  scratched.  You  can  also  copy 
blocks  from  one  disk  to  another, 
store  data  directly  in  unused  disk 
sectors,  and  restore  damaged  files  to 
their  original  condition. 


Commodore  Disk  Editor 

Please  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 


10  REM  BLOCK  EDIT 
20  FORX=0TO26 : READA 

A: NEXT 
30  DATA  162,2,32,198 

,32,207 
40  DATA  255, 153,0,4, 

0,216 
50  DATA  200, 208,242, 

98,255 
60  DATA  96 
70  PRINT" [CLR] [CYN]" 

,0:POKE53280,9 


:reFi  214 

POKE820+X, 

: rem  28 

,255,160,0 

: rem  16 

169,1,153, 

: rem  170 

162,1,32,1 

: rem  228 

:rem  2  39 

:POKE532ai 

:  rem  2 


80  POKE  53272,23 :PRINTCHRS(a) 

: rem  124 
90  OPEN  1,0:OPEN15,8,15 

:rem  240 
100  GOSUB380  srem  172 

110  INPUT"ENTER  TRACK,  SECTOR" 
;T,S  :rem  227 

120  IFT=99THEN470      :rem  239 
130  IFT<1ORS>20ORT>35THEN100 

: rem  211 
140  IFT>17ANDT<25ANDS>18THEN10 

0  :rem  117 

150  IFT>24ANDT<31ANDS>17THEN10 

0  I  rem  112 

160  IFT>30ANDS>16THEN100 

: rem  166 
170  OPEN  2,8,2, "#"  :rem  81 
180  PRINT#15, "U1:"2;0;T;S 

: rem  153 
190  SYS820:CLOSE2:GOSUB420:GOS 

UB380  :rem  186 

200  INPUT "EDIT  AND  SAVE?  { RVS ) 

YIOFFJES  OR  (RVS jNlOFFlO" r 

A? :IFA?<>"Y"THEN100 

: rem  105 
220  POKE254,PEEK(1024) :GOSUB38 

0:PRINT"(WHTi"r    : rem  103 
2  30  PRINT "USE  THE  CURSOR  TO  TY 

PE  OVER  THE  BLOCK. 

{2  SPACES S^F  YOU  MAKE  A  MI 

STAKE,  DO  ";       : rem  160 
240  PRINT"NOT  PRESS {5  SPACES }R 

ETURN .  PRESS  THE  Fl  FUNCTI 

ON  KEY. "  :rem  85 

250  POKE781,0:POKE782,0:SYS655 

20  :rem  99 

260  POKE204,0:WAIT198,255:WAIT 

207 , 1 : PGKE1024, PEEK ( 254 ) 

: rem  100 
280  GETA?:IFPEEK(203)=0THEN280 

: rem  233 
290  IFA?=CHR5(13)THENWAIT207,1 

: POKE204 , 1 :GOTO340  : rem  66 
300  IFAS=CHR${133)THEN330 

: rem  114 
310  POKE205,3sWAIT207,l:PRINTA 

$; :GOTO260         :rem  144 
330  CLOSEl:CLOSEI5:OPEN15,8, 15 

,  '■I0":CLOSE15:PRINT"(CLR} 

(2  DOWN)OK":GOSUB460:GOTO7 

0  ;rem  162 

340  OPEN2,8,2, "#" : PRINT "(HOME) 

{14  DOWN H RVS) SAVING  TRACK 

"T"SECTOR"S"        :rera  136 
350  FORX=0TO254:PRINT#2,CHR$(P 

EEK(1025+X)); :NEXT: PRINT#2 

,CHR$(PEEK(1024) ) ; :rem  163 
360  PRINT*  15,  "U2:"2;0,-T;S:CLOS 

E2  :rem  124 

370  A?="":GOSUB420:GOTO100 

: rem  212 
380  PRINT" {HOME} {6  DOWN)" 

:rem  229 
390  PRINTCHR5(5)r :FORX=0TO39:P 

RINTCHR?(162) r :NEXT;PRINTC 

HR5( 159)  :rem  254 

400  FORX=1T01 00: PRINT" 

(5  SPACES}"; : NEXT   s rem  52 
410  PRINT" (HOME) {7  DOWN ) " : RETO 

RN  :rem  10 

420  INPUT#15,A,B5,C,D  : rem  141 
430  IF  B?="OK"THEN  RETURN 

:rem  182 
440  PRINTA;B?;C;D:POKE53  281,9 

:rem  213 
450  FORX=1TO2000:NEXT:POKE5328 

1,0:GOTO100        :rem  240 

460  FORX=1TO2000:NEXT: RETURN 

:rem  63 
470  PRINT"OK" sCLOSEl rPRINtflS , 
"I0":CLOSE15:END  : rem  71© 


THE  AMAZING  VOICE  MASTER 


Three  Exciimg  Ptoducts  in  One: 

*  9p**«h  Synthvtlzvr  -  Your  Computer  can  Ulk  \o  fou  In 

your  own  votc«. 
>  Ward  n*eaf|ril1l4n  —  Make  your  computar  inpotid  lo 
your  «pol(«fi  commandi. 

*  Vole*  Harp  —  A  lOUdy  fts*/  muKC^I  inftrumflnl  thai  yoj 

pljy  S'^'d  COmppaa  by  hijmmlf>9. 

Based  upoti  new  technologies  iriyente<l  fiy  COVOX.  Per- 
formance is  equal  to  other  systems  costing  thousands  ot 
dollars  more.  One  low  price  buys  the  entire  system 

ONLY  $89.95 


AvaliUA  IroiTi  yOuF  a««ltlr  or  by  rrwm   Vih9n  ordsiinQ  by  miJl.  plsaut 
■nciutto  S4  DO  ahlpping  KrK}  ha»dl>r>g  (SiD  »  lor  lof  u^n  ordttnj. 
Call  (503)   342-1 271   roi  t  Wsonon*  OarrionalrabOo  Hml  Drdarung 
inhM-m«iton  \A5A  oi  UC  ACC+PWJ  FREE  t»rOcr)uria  av>4labl« 


COVOX  MC 

»S-D  Coneer  Sireti,  Eugene,  OR  97402 

TslAX  ^0601 7  |AV  ALARM  UD} 


maxeil  disks 

LIFETIME  WARRANTY 


Think  you're  getting  the  best  price 
on  Maxell  Diskettes? 
You're  right  .  .  .  BUT  ONLY  IF  .  .  . 
You're  buying  Irom 
NORTH  HILLS  CORP. 

We  will  beat  any  nationally  adver- 
tised price*  or  give  you  a  15  disk 
library  case  FREE! 

Call  us  last-  -TOLL  FREE— !or  our 
best  shot  every  time. 

1-800-328-3472 
Formatted  and  hard  sectored  disks  in 
stock. 

Dealer  inquines  Lnviled  COD  s  and  ctiarQe  ccjrdi 
accepted    All  orders  shipped  \totti  slock  Wllhin  24 
hcijrs  Why  wail  ID  days  lo  hti  shipped'^ 


aM 


Hi 


North  Hills  Corporation 

36M  Roiijna  View  Dr 

While  Bear  La^te  MN^^IIO 

MN  Call  CoiJec!  I'612-77004fi5 

'ventiable  same  product  sanve  quanimes 
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ft^   I  SAVE  "  PRINTERS  I   (^^ 


AXION 

GP  550  AT  (Atari) 

GP550CD  lC-64) 

GP  550  PC  (IBM) 

GP  550  AP   Apple) 
GP  700  AT   Afan) 
GP  700  AP  (Apple) 
Elite  5CD  (C-64y, 


-249 
..249 
.239 
.279 
-459 
.459 
329 


BLUE  CHIPS 

M12010 iili 

M15010C-64    S?7S 

C.  ITOH 

Pfowriler  8510  AP  279 

8510  BC2 389 

8510  BPl 319 

8510  SP 379 

8510  SR... 429 

3510  SCP 459 

8510  SCR -479 

7500  AP - 205 

75G0  AP 245 

1550  P 449 

1550  BCD 489 

A.10-20-P 459 

F  10  40  PU  or  HDU  888 

FlOSSPUofRDU  1069 


CARDCO 

LOl 369 

LQ3 279 

CITIZEN 

MSP-50  329 

MSP-15 499 

MSP-20 479 

MSP-25  649 

COMREX 

CR-II-EC  Comriler  HE  Parallel  359 

CR-II-ES  Comriter  II  E  Parallel  379 

CR-W-C  Comriler  IV  Parallel  689 

CR-IV-S  Comriler  IV  Serial  BB9 

Corona 

LP300  Lasei  Pr.nier  S699 

200361  Tofier  Canfir^qr-        89 

DIGITAL 
DEVICES 


EPSON 

RX-eO 225 

RX-80  FT- 279 

FXlOO' 579 

JX  80 529 

LQ  1500  P 1069 

LQ  1500  S 1149 

HI-80  Color  Plotlf  r  399 

JUKI 

Juki  6100 379 

RS  232  Serial  Board 55 

Tractor 119 

Sheel  Feeder.- 209 

Juki  6300 759 


880 

1080 

1200 


LEGEND 


219 
239 
249 


'6K  [^firtef  tA.I'f ■ 
e4K  p'lf^ter  tlutlpF 


99  75 
1691S 


i^    PRINTER     i^ 

INTERFACING 

Available 


MANNESMANN  TALLY 

Spirit  SO -.-- 255 

MTL-160L 549 

MTL-ieoL 739 

NEC 

NECaO?5  S699 

NECaOJ7  -S359 


OKIDATA 

Okimate  10 179 

82A  295 

BH    645 

92  349 

93  565 

92  ImaqBwriter 425 

92  IBkrVersion 349 


OLIVETTI 

DY  250  Parallel-  739 

DY  250  Serial 728 

OY  450  Parallel 1099 

DY  450  Serial 1079 


PANASONIC 

1090 - 139 

1091 259 

1092 395 

1093 - sag 

3151 459 

Smith  Corona 

Faiiemso  vegoo 

DICXJ--- 21900 

D200 399  00 

D300    -. 519  00 

L1(X)0  3390O 


STARMICRONICS 

SG-IO 219 

SG-15 379 

SD-10 339 

SD-16 -.,-..446 

SR-10 - 489 

Sn-lS 585 

Powertype - 309 

Gemini  lOX CALL 

Gemini  15X CALL 

SB-10   CALL 


OVER  2000  SOFTWARE  TITLES  IN  STOCK 


■BRAND  NEW/FACTORY  FRESH  MERCHANDISE!' 


■WE  OFFER  FULL  LINE  OF  ACCESSORIES!' 


COMPUTER 
CARE 


BIB 

OlSK  DRIVE 

CLEANER J12  75 

COMPUTER  CARE  KIT       119  75 

NORTRONICS 

DISK  DRIVE 

CLEANER 

with  software  for 

IBM-PC,  Atari,  Vic, 

DISK  DRIVE  GLEANER  wilh 
soltware  'oi  IBM  PC    Aran    Vcc 
AdoIc   Tl  .    ,,  .  1J9  75 

DISK  CLEANER 

REFILL in  75 

CASSDRlVE  CLEANER. .$9  95 
MEDIABULKERASER     .446  75 

NEC 

PC820-  Portable  ...  Sa?9 
IMECBl  64K  Campulei 

Syslem 11049 

NECB?  128  K  Computer 

Svslem  ,.    SI 299 

FC8?21  Thermal Pf. filer,  -  S  139 
PC8?01  SKRAMCniD  -.S  99 
PCa?0e3?KHAMCan      .S    299 

PC300  MoOem S      65 

PC8S01  MSDOS 

■6  9il  Caro S    339 


PRINTING 
PAPER 


DISKETTES 


3000  SHEETS 

FANFOLO M;  75 

1000  SHEETS 

FANFOLD S1975 

1000SHEETLETTER,  .121  95 
200  SHEETS  LETTER.. ..$8  99 
ISORAGSTATIONAHV.  .110  99 
MAILING  LABELSllini  ..$9  95 
Id  i  1  1   lOOO 

FArjFOLD    $24  7S 


INNOVATIVE  CONCEPTS 

Flip-n-File  10     ,  3  50 

Flip-n-File  15    .      .  8  25 

Flip-n-File  25  Lock,  .17.95 

Flip-n-File  50  ,17  25 

Flip-n-File  50  Lock,  22,95 

Flip-n-File  Rom   ,  17  25 


DRIVES 


MSD 

SDl  Drive 229 

SD8  Drive 469 

INDUS 
GT  Atari    ....  219 

GT  Atari                   -    --  219 

GT  Commodore 249 

GT  Apple  w,'contr3ller  219 

GTApDie  169 


SKC 

jBo>  lOl 
5 'A"  SKC-SSSD  10,99 

SV."  SKC-SSDD  .13-99 

S',4-  SKC-DSDD 15,99 


ELEPHANT 

(BOJf   lOj 

5V»     SSSD 13-99 

5Vj  ■  SSDD 15.99 

5V.--  DSDD t9.99 


MAXELL 

5Vi  ■  MO-l  16  99 

SVJ  ■  MD-2 23.75 

(Bon  10) 


IBM-PC 

SOFT-WARE 


•LOTUS 

Loius  1-2-3 ,     309.00 

Symphony --- 439.00 

•ASHTON-TATE 

Framework  385  00 

cJ  Base  II 2B9  00 

d  Base  JII 385,00 

d  Base  II  upgrade  135  00 

•PARADISE 

5-Pak  M,ultilunc:tion.  ,   ,179,00 

Modular  Graphics 289.00 

'/ocular  Graphrcs  Card        315  00 


IBM-PC 

COMPATABLE 


CORONA 

PPG  22A 

Portable  256K-AmDer  If 99 

PPC  22G 

Ponable  256-K-Green  1699 

PPCXTA 

Portable  256K-10Meg  2899 

CORI  28K  128K  HAW  1599 

Zenith 

Z-150  Call 

Leading  Edge 

PC  Compatable  Calt 

•LEADING  EDGE 

Nulshell 69  95 

LEWP  Basic 65.00 

LEWP  Merge  Prim  .  99  00 

LE  Spell  Correclion  .  .  169.00 

•QUADRAM 

Quad  Jr   Enp  Chassis  519,00 

Quad  Jr  Exp   Memory  209  00 

Quad  Memory  Jr     ..  .  209.00 

Ouadcolor  I             -  209.00 

*STB 

Super  R10-64K  279  00 

Super  R10-192K  399  00 

Super  R1D-256K  449  00 

Graphics  Plus  II 339  00 

•PARADISE 

Mulli  Display  Card  .      ,335  00 

CONTINENTAL 

Home  Accoumant 85.00 


TOLL  FREE  1-800-233-8760 


TO  ORDER 


CftLl   TOIL  F  R£  £ 

800-233-8760 


or   send  orde^   lo 
L  yc  o  Compuler 

p  0  Bo«  soee 

Customer  Service  1-717-327-1825  Jersey  Snore    pa  i  7740 


RISK  FREE  POLICY 

in-s1ock  iiem  shipped  wiihm  24  hoyrs  o1  Ofder  Ho  depos'i  on  C  O  D 
orders  Free  shipping  on  prepaid  cash  orrters  wiihin  the  Coriinenfai  U  S 
PA  residents  add  sales  tax  APO.FPO.and  International  orders  add  $5  00 
plus  3%  lor  prronty  mail  sen^ice  Adverinsed  prices  sho*  4^  discount  for 
cas*i  add  4%  (c  Master  Card  or  Visa  Peisonai  checks  require  4  wee»^s 
ciea'snce  before  shipping  ai!  items  subiect  to  change  wfthoul  nolnce 
For  your  protection,  we  check  lor  stolen  credit  cards. 


I  JK  ATARI  >in|qpplGi|COMMODORE| 


ATARI 

OOO  XL  Computer CALL 

1050  Drive 169 

1010  Recorder - 44 

1020 55 

1025 185 

1027 239 

850 109 


SYNAPSE 

(ATAfll) 

Synfile 34.95 

Syncalc 34.95 

Syncomm 27.95 

Syntrend 27.95 

Synchron 27.95 

Synstock 27.95 


SCARBOROUGH 

Nat  V/orih   49  95 

Maslertype  24  75 

Improued  Masteriype  24.75 

Masiertype's  Filer       .  24.75 

SPINNAKER 

Delta  D'awing  Hoom       19  95 
Cosmic  Life  Room  19.95 

Up  for  Grabs  Room 19.95 


SSI 


Baseball    22.75 

Question 26.75 

50  Mission  Crush. 22.75 

Broadsides 22.75 

Computer  Ambush  34  75 


Trillium 

Shadowkeep  S26  75 

Fanrenneit  451  S26.75 

Amazon  S26  75 


MICROPOSE 

Solo  Flight.  22  75 

NATO  22  75 

Spitlire  Ace 19.95 

F-15  Strike  Eagle  22  75 


CONTINENTAL 

Home  Accountant 44.75 

1 985  Soo<  cl  Atalri  Sofcva'e    16  95 


SUBLOGIC 

Flight  Simulator  II  .32  75 

Night  Mission  Pinpall       18  75 

PERSONAL 
PERIPHEIALS 

Supei  Sketch-Ataii  32  95 


BRODERBUND 


Bank  St    WriteV 
The  Print  Shop 

Serpent's  Star 

Spelunker 

SFeallh 

4275 
,29  95 

24,75 

.,    19,95 
19,95 

BUSINESS 

.S159  75 

LEHEn  PERFECT  R 

..  ft'jao 

DATA  PERFECT 

..S89  75 

FILE  MANAGER 

..S69  75 

HOME  FILE  MGR  

..J69  75 

ADVENTURE 

Dishey                              29  95 
Ultra  Disassemoier          29  95 

GRAPHIC  TABLET 

Super  Sketch 32.95 

Koala  Pad 5995 


EASTERN  HOUSE 

MonKey  Wrencn  11300  24  95 

Monkey  Wrench  11800  XL       24  95 

CONTINENTAL 

Home  Accountant.  44.95 

19B5  Bsof  o'Ata-- SoUware       16  95 

ADVENTURE  INTERNATIONAL 


Diskev 

Ultra  Dissambler 

32  75 

32  75 

WICO 

(Joysticks] 

15-9714  Bal  Handle 

16  99 

502002  Super  3-\n3y 

19  99 

72-4545  TrackDail 

29  99 

Scarborough 

Songwnter  124  76 

Piclurewril $24  75 

Phi  B«1a  F $32  Tb 

Maslertype $24  75 

Run  I  Money   S32  75 

Net  Worth $54  75 

Mlcropros« 

Solo  Flight   $22  75 

NATO  $22  75 

Spitlire $22  95 

FlSStnke $22  75 

Air  Rescue  S22  75 

SSI 

Eiaseball $22  75 

Oueslron J26  75 

Germany  1985   J32  75 

50  Missions  ,..,...  J21   75 

Spinnaker 

Alphabet  $,a  7S 

Story  Machine *....    $1975 

Kids  on  Keys jig  75 

Grandma. .....;.,^ii.,$ig  75 

Snooper  T'cop $22  75 

Broderbund 

aank  SI  Writer  ,. $42  75 

Ban  I.  SI   Filer 542  75 

Bank  St   Mailer S4?  75 

Bank  St   Seen $42  76 

Mask  ol  Sun S24  95 

Print  shop 32  95 

Lofle  Runnei ,  .  ,522  45 

Graphics  Tablet 

SyDer51.e!',n ,  .„  „, 


COMMODORE 

Simon  s  Basic    24  75 

Assembler  64 34.75 

Super  Expander  22.75 

Logo  64 49.75 

Pilot  64 38.75 

Easy  Cale -. 34.75 

Easy  Script 38.75 

C  64  Computer CALL 

C  1541  Oisk  Drive 195 

MPS  801  Primer        175 

C  1702  Monitor 209 

C  1531  Dataselte  .         39  75 
C  1660  Auto  Modem 85 

SS1 

(0-64) 
Computer  Baseball  24,75 

Field  of  Fire  24.75 

Computer  Quarterback  .24.75 
Oueslron  .  .24.75 

50  Mission  Crush  24.75 


Scarborough 


Songwnter 
f  hi  Beta  F 
Maslertype 
Run  t  Money 
Net  Worth 


$24.75 
S29M6 
$24  75 
$24  75 
S49.95 


SUBLOGIC 

(C-64) 

Flighi  Simulator  II  32  75 

Night  Mission  Pinball 22  75 

PERSONAL  PERIPHERALS 


Super  Sketch  64 
Printer  Ulilily 


32  75 
18  75 


'*°'s" SS4  95 


koaLa 

(C-64) 


.59  95 


MOD 

MICROBIT 

MP?  1000  E  (Atari) 
MPP  1054  (C-64 

HAYES 

SmarlmocJem  300 
Smarimoden  1200 
Smarimoden  1200B 
Micromodem  HE 
Micromodem  lOO 
Chronograph 
Smart  Com  u 

fblVIo  1 

S 

99  OU 
69  95 

189 
459 
389 

249 

289 

179 

75 

1 

TELE  LEARNING 

CM-250IC-64) 65.00 

AP.250  (Apple) 109  95 

IB-25a(fBM) 109,95 

.CARDCO  MOD-i  lC-64)         CALL 
NESTRIDGE  (C-64)          CALL 
MITEV  MO  lC-64)              CALL 
1660  AUTO  MODEM  iC-64)        85 
COMPUSERVE                 23  95 

Illy 


CARDCO 

C;01  Wriie  Kom 
C;02  Write  Now  ■  64 
D/01  Mail  Now  •  64      , 
D,'04  Spell  Now -64  .. 
D/02  Utilily  Desk 
CSD-1  DiskOrivetnewl 
MOD-1  Modern  (newl 
D/03  Tax  Payer  |new| 
D;07Ca[cNow/64:new| 
D/Oa  super  Printer  UIil 
0;oa  Super  Primer 

Utility 

CK/?NumencKeyPaa 

EtC/1  Dala  Cassette 

CB/5  5  Slot 

Board  C-64 

CR/1  Light  Pen 

CE/T  Cassette  Interiace 

CS/3  3  Slot 

Board  Vic>20 

CB/6  6  Slot 

Board  Vic-20 


29.95 
39.95 
29.00 
29.00 
19.95 
CALL 
CALL 
27  95 
27.95 


27.95 
34  95 
39  95 

54  00 
29,75 
2975 

34  95 

65  00 


HES 

HES  Games  84       .  22.95 

Omni  VVriter/Spell  ..    .       34.95 

HES  Mon  64   23.95 

Microsoh  Multiplan 55.00 

Type  N  Write     19.95 

Turtle  Graphics  II  .  23,95 

Cell  Defense   22  95 

Painl  Brush 12.95 

TriMath       22.95 

Graphics  Basic  27  95 

HES  Kit  29  95 

Millionaire  23.95 

64  Forth  .  24.95 

HES  Writer  64  .     24  95 

TImeworks 

inventory  $32  75 

Sales  $32  75 

Accis   Rec  J32  75 

Accls   Rec  S32  75 

G.  Ledger  $39  75 

Data  Mgr  S14  75 

Checkbook  $1475 

star  Battle   ji,4  75 

Cave  ol  Word  jt  g  75 

Mtcroprose 

Solo  Flight  $22  75 

NATO  $22  75 

SpiMire  .     $19  95 

F-15  Stnke  $23  75 

Air  Rescue     $22  75 


*  LOWEST  PRICES!    * 


*    SUPER  SPECIAL!    ^ 


MONITORS 


AMDEK 

300  Green  125 

300  Amber    .  139 

310  Amber  IBM  155 

Color  300  Audio      245 

Color  500  Cor^pQSile 369 

Color  600  429 

Color  700 495 

Color  710 559 


SAKATA 

SC-100  Color 
STSl  Stand 
SG  1000  Green 
SA  1000  Atnber 


219 
29 
99 

109 


PANASONIC 

DT  1300  RGi  composite 


329 


PRINCETON  GRAPHICS 

MAX-12  Amber  189 

HX-12  RGB  475 

SR-12  RGB      .  599 


NEC 

JB-1260  Green 

95 

JB-1201  Green 

135 

JC  1215  Color 

235 

JC  1216  RGB.  . 

375 

JC1460  Color 

265 

JB.1205  Amber  .      . 

139 

GORILLA 

12'   Green   .  .      . 
2"  Amber 


76 
84 


ZENITH 

ZV.M  122A  Amber  84 

ZVM  123G  Green.        .        75 
ZVM  124  Amber  IBM    ,    ,  129 

ZVM  131  Color 275 

ZVM   133  RGB       389 

ZVM  135  Composite  449 

ZVM  136  Hi  Res  Color,   .589 


TAXAN 

210  Color  RBG 

1 15  Green 

1 16  Amber 
400  Color  RGB 
410  Color  RGB 
420  Color  IBM 

121  Green  IBM  . 

122  Amber  IBM 

X-TRON 

Comcolor  I  C  iinipiisitt  ( 


249 
119 
125 
275 
339 
429 
139 
145 


AMERICA'S  MAILORDER  HEADQUARTERS 

LYCO     COMPUTER 

WORLD'S  LEADER  IN  SALES  &  SERVICE 


TO  ORDER 
CALL  TOLL  FREE 
800-233-8760 

In  PA  1  717-327-1824 

Lyco  Computer 

P.O.  Box  5088 

Jersey  Shore,  PA  17740 


TI  SuperFotit 


pervisor 


A  powerful  feature  of  the  TJ-99/iA  is 
its  ability  to  redefine  the  character  set. 
With  "Tl  SuperFont,"  a  compreheyi- 
sive  character-definition  program,  you 
can  harness  this  capability.  Requires 
Extended  BASIC  and  a  joystick  (printer 
optional). 


The  character  graphics  capabilities 
of  the  TI-99/4A  are  well  known.  But 
to  redefine  a  character  on  the  TI  by 
the  usual  means  (see  the  TI  User's 
Reference  Guide,  pages  11-76  to  II- 
79),  you  must  follow  a  tedious,  multi- 
step  procedure.  First,  you  plot  the 
character  in  an  8  X  8  grid.  Next,  you 
convert  each  row  of  the  grid  into  a 
two-digit  hexadecimal  number  and 
then  sequentially  combine  the  num- 
bers from  each  row  to  generate  a 
patter7i  identifier,  or  coded  represen- 
tation of  the  character.  Finally,  you 
place  this  pattern  identifier  along 
with  a  chosen  ASCII  value  for  the 
character  in  a  CALL  CHAR  state- 
ment. Anyone  who  has  repeatedly 
endured  this  process  can  attest  to  its 
drudgery. 

Fortunately,  the  process  is  easi- 
ly computerized,  and  several  char- 
acter-definition programs  have  been 
written  for  the  TI.  Until  now,  how- 
ever, these  programs  have  not  taken 
full  advantage  of  the  TI's  capabili- 
ties. With  "TI  SuperFont"  (Program 
1),  once-tedious  character  manipu- 
lations can  now  be  undertaken  with 
ease. 

Sixteen  Commands 

SuperFont,  originally  written  for  the 
Atari  by  Charles  Brannon,  first  ap- 
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peared  in  the  January  1982  issue  of 
COMPUTEf  and  featured  18  com- 
mands for  redefining  characters. 
After  using  this  outstanding  pro- 
gram on  several  occasions,  I  was 
convinced  that  Tl  users  deserved  a 
utility  as  versatile  and  convenient. 
That's  how  TI  SuperFont  was  born. 

In  converting  SuperFont,  a  few 
commands  with  less  value  to  the  TI 
user  were  eliminated  while  certain 
more  practical  commands  were 
added.  As  it  turned  out,  the  real 
challenge  was  to  fit  the  program  into 
a  TI  without  memory  expansion. 
The  final  version  leaves  only  a  hun- 
dred or  so  bytes  to  spare.  However, 
certain  adjustments  must  be  made  if 
you  are  using  a  disk  drive  with  the 
program.  Before  loading  and  run- 
ning SuperFont,  type  CALL 
FILES(l).  This  will  free  up  memory 
ordinarily  reserved  for  additional 
disk  file  manipulation, 

TI  SuperFont  offers  the  follow- 
ing 16  commands  or  modes: 


E      EDIT  N     INPUT 

R      RESTORE  CH       H     RESTORE 

CHSET 
F      COPY  W    WRITE 

DATA 
M     MIRROR  V     REVERSE 

A     ROTATE  C     CLEAR 

I       INSERT  D     DELETE 

L      LOAD  FONT        S     SAVE  FONT 
P      PRINT  CH  T     PRINT 

CHSET 


When  the  program  is  run,  this 
command  menu  is  displayed  on  the 
screen.  Above  it  is  an  8  X  8  grid 
which  serves  as  a  workspace  for  re- 
defining each  character.  To  the  right 
of  the  grid,  the  current  mode  and,  in 
some  cases,  a  prompt  will  be  dis- 
played. Below  this  is  printed  the 
entire  TI  character  set  (codes 
32-143)  with  each  subset  (eight 
characters)  denoted  by  a  different 
background  color.  (If  you  find  the 
colors  annoying,  remove  the  FOR- 
NEXT  loop  in  line  300.) 

Several  commands  require  that 
you  pick  a  character  from  the  TI 
character  set.  In  these  instances,  a 
box-shaped  sprite  (CHR$(143))  ap- 
pears over  the  last  character  refer- 
enced from  the  set  (defaults  to 
space).  Position  the  sprite  with  the 
joystick  over  the  desired  character 
and  press  the  fire  button.  Unless 
indicated  otherwise,  each  command 
returns  you  to  the  EDIT  mode  upon 
completion. 

Now  let's  examine  each  com- 
mand, beginning  with  EDIT.  (The 
ALPHA-LOCK  key  should  be  up 
when  making  menu  selections.) 

•  EDIT  is  the  basic  editing  com- 
mand. After  you  press  E,  SuperFont 
requests  you  to  choose  a  character 
from  the  character  set.  The  character 
selected  is  copied  into  the  grid  and 
the  box-shaped  sprite  appears.  This 
is  actually  like  a  cursor,  controlled 
with  the  joystick.  Press  the  fire  but- 
ton to  set  a  point  (if  a  point  is  clear) 
or  reset  a  point  (if  a  point  is  already 
set).  You  can  draw  lines  by  holding 
down  the  button  while  moving  the 
joystick.  When  you're  pleased  with 


the  appearance  of  the  shape  in  the 
grid,  press  ENTER  to  redefine  the 
character.  (To  completely  redesign  a 
character  from  scratch,  use  the 
CLEAR  command,  described  below.) 

•  INPUT  lets  you  type  in  a  pattern 
identifier  and  assign  it  to  a  particular 
character  code.  After  selecting  IN- 
PUT, choose  a  character  from  the  set 
with  the  joystick  and  then  type  in 
the  hexadecimal  code  for  the  rede- 
fined character.  The  hexadecimal 
code  can  be  typed  in  upper-  or 
lowercase  (a  routine  at  line  960 
automatically  converts  the  code  to 
uppercase).  The  INPUT  command  is 
handy  when  attempting  to  associate 
a  pattern  identifier  with  a  CHR$ 
code  in  someone  else's  program. 

•  RESTORE  CH  restores  the  current 
character  to  its  original  configura- 
tion. This  command  is  useful  if 
you've  mangled  a  character  or 
changed  the  wrong  one. 

•  RESTORE  CHSET  restores  the  en- 
tire character  set  to  its  initial 
appearance. 

•  COPY  copies  a  character  to  a  sec- 
ond location  in  the  character  set. 
SuperFont  prompts  you  for  the  first 
character  (the  one  to  be  moved)  and 
the  second  character  (the  destina- 
tion character).  This  command  is 
handy  for  arranging  your  custom- 
ized characters  to  fit  the  various 
color  codes. 

•  WRITE  DATA  displays  the  pattern 
identifier  for  each  selected  character 
along  with  its  ASCII  value.  Very 
handy  when  comparing  characters 
or  for  providing  a  few  character 
codes  for  another  program. 

•  MIRROR  produces  a  mirror  image 
of  the  current  character  in  the  grid. 

•  REVERSE  puts  the  current  charac- 
ter in  the  grid  in  reverse  field:  All 
dots  become  blanks,  and  all  blanks 
become  dots. 

•  ROTATE  turns  the  current  charac- 
ter 90  degrees  clockwise. 

•  CLEAR  completely  clears  out  the 
current  character.  For  creating  new 
characters  from  scratch. 

•  INSERT  places  a  row  of  blanks  in 
the  current  character.  Move  the  cur- 
sor in  the  grid  with  the  joystick  to 
the  row  where  you  wish  to  insert  the 
blanks  and  press  ENTER.  All  rows 
below  will  scroll  down  and  the  bot- 
tom row  will  be  lost. 

•  DELETE  is  the  opposite  of  INSERT. 


Position  the  cursor  on  a  row  in  the 
grid  and  press  ENTER.  The  row  will 
be  eliminated  and  all  other  rows  will 
scroll  upward.  DELETE  and  INSERT 
can  be  used  with  ROTATE  to  scroll 
characters  left  or  right  in  the  grid  (of 
course,  one  row  will  be  lost  in  both 
cases). 

•  LOAD  FONT  loads  a  previously 
SAVEd  character  set  (a  font)  from 
tape  or  disk.  SuperFont  prompts  you 
for  the  device  and  filename.  Be  sure 
to  type  this  in  the  standard  format 
(that  is,  CSl  or  DSKl. FILENAME). 
Again,  capital  letters  need  not  be 
used.  The  routine  that  converts  from 
lower-  to  uppercase  takes  care  of 
this  for  you.  If  you're  using  tape,  the 
screen  will  be  restored  after  the  tape 
system  messages  have  been  printed 
(the  same  occurs  with  SAVE  FONT, 
discussed  below).  When  loading  is 
complete,  a  command  prompt 
appears. 

•  SAVE  FONT  saves  to  tape  or  disk 
(in  a  data  file  format)  only  those 
characters  which  have  been  altered 
since  SuperFont  was  run.  Since  each 
character  code  is  saved  as  a  separate 
record,  a  large  set  may  take  30  min- 
utes to  save,  As  with  LOAD  FONT, 
you  will  be  prompted  for  the  device 
and  filename.  If  you  accidentally  hit 
L  (for  LOAD  FONT)  or  5  from  the 
main  menu,  simply  press  ENTER  to 
abort  the  command  when  prompted 
for  the  device  and  filename. 

Once  saved,  character  sets  can 
be  loaded  into  any  program  where 
they're  needed  (we'll  consider  this 
in  greater  detail  shortly).  As  with 
LOAD  FONT,  a  command  prompt 
appears  when  the  operation  is 
complete. 

•  PRINT  CH  prints  the  current  char- 
acter in  an  8  X  8  grid  along  with  its 
ASCII  and  pattern  identifier  codeSy 
then  returns  you  to  the  main  menu. 
Be  sure  to  modify  line  1260  to  corre- 
spond to  the  specifications  of  your 
printer. 

•  PRINT  CHSET  is  the  same  as  the 
previous  command,  except  it  prints 
every  character  which  has  been 
modified. 

The  commands  offered  by  Su- 
perFont are  versatile,  but  you  may 
want  to  add  others.  Since  the  pro- 
gram uses  most  of  the  Tl's  memory, 
unless  you  have  additional  RAM 
you'll  have  to  substitute  your  own 
routine  for  an  existing  one.  Fortu- 
nately, the  program  is  modular  in 


Redesigning  a  character  with  "Tl 
SuperFont." 


structure.  Just  follow  the  branching 
IF  statements  from  line  360  to  920 
for  the  current  commands.  If  you  do 
alter  the  program,  test  it  thoroughly 
to  make  sure  you  still  have  plenty  of 
memory  left. 

Retrieving  A  Font  Or 
Screen 

After  you've  saved  a  newly  created 
character  set,  how  do  you  go  about 
recovering  it  for  use  in  another  pro- 
gram? Program  2  shows  how  this  is 
done. 

In  line  130,  the  device  and  file- 
name for  the  character  set  file  is 
defined  as  B$  (the  filename  used 
here  is  FONT).  If  you  store  this  file 
on  tape  rather  than  disk,  line  130 
should  read  B$  =  "CS1".  Lines 
140-160  load  in  the  new  character 
set  and  print  it  on  the  screen.  Line 
170  sets  up  a  delay  so  you  can  see 
that  the  character  set  has  successful- 
ly loaded. 

With  SuperFont,  you  can  per- 
form many  chores  with  ease.  You 
can  customize  your  character  set 
(ever  wished  for  true  lowercase?), 
create  graphics  characters  and  ani- 
mated figures  (space  creatures!),  or 
just  play  around.  The  uses  of  this 
utility  are  endless.  I'm  sure  youTl 
have  as  much  fun  discovering  them 
as  1  have. 


Program  1 :  Tl  SuperFont 

10  DIM  ft« < 1 1 1 > , C« (15) ,NS ( 1 1 

2)  ,  D  (  15)  ,  V  (0,8)  :  :  L=«32 
20  E=15  S!  Q«="DEVICE. FILEN 

AME?"  s:  GOSUB  1240  :;  G 

OTQ  260 
30  F=0  : :  GOSUB  40  : :  GOTO 

340 
40  CALL  HCHAR (5, 14, L, 16) : i 

RETURN 
50  CALL  HCHAR (3, 17, L, 7) t :  C 

ALL  HCHAR (7, 17, L, 16) : :  R 

ETURN 
60    FOR     1=5    TO    7     : :     CALL    HCH 
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AR  <  I  ,  13,L,  lai  :  :  NEXT  I  ; 
:  RETURN 
70  Z*=N»(W-L> 

B0     FOR  1=0  TO  15  ::   D<I)=AB 
C (SEG« ( Z*. I+l , 1 ) ) -48  :: 
D  (  I  )  =D!  I  )  +  (D  (  I  )  >■?)  t7 
90  NEXT  I  ::  J=0     : :     FDR  1=0 

TO  7  ::  DISPLAY  flT(2+l, 

1 ) :C« (D( J) > ; ! :  DISPLAY  A 

T  f2  +  I , 5)  : C« (D ( J  +  1  )  )  s  :  :  J 

=J+2  ! !  NEXT  I  : !  RETURN 

100  CALL  DELSPRITe<#l ) s :  DI 

SPLAY  AT (5, 15) : "WAIT" 
110  FOR  R=l  TO  8  : :  FOR  C= 1 

TD  B 
120  IF  n=10'5'  THEN  CALL  BCHA 

R (R+1 , 1 1-C, H) ! :  GOTO  15 

0 
130  IF  M=97  THEN  CALL  GCHAR 
(  10-C,R+2,H) :  :  GOTO  150 
140  CALL  GCHAR (R+1 , 2+C, Ht 
150  V(R,C>=H-141   ::  NEXT  C 

: !  NEXT  R 
160  H»-"01234567B9ABCDEF"  : 

s   IF  M=lia  THEN  H*="FED 

CBA9S76543210" 
170  Z*=""  ::  FOR  R=l  TO  B  ; 

:  LO=V (R, 5) «B+V (R,6> t4+ 

V (R, 7) «2+V (R, S) +1 
180  HI  =  V  (R,  1  )  »a*-V  (R,  2)  «4+V  ( 

R, 3} «2+V (R, 4) +1 
1?0     Z«-ZSS<SEB«  (H«,  HI  ,  n  itSEG 

« (Ht.LD, 1 ) : :      NEXT     R 
200     IF     (M< >100) « (M< >105) THE 

N     240 
210     IF     ri<>100     THEN     230 
220     Z«  =  SEG«  (Z«,  J  ,  RDW«2-2)«cS 

EG*  (Z»,  RDW*2+i  ,  14)  !<"00" 
: !      GOTO     240 
230     Z«  =  SEG»  <Z«,  I  ,  RDW«2-2)  &■■ 

00"8<SEBS  (Z«,R0Ht2-l  ,  16- 

R0Wt2} 
240  CALL  CHARtWjZ*)::  N»(W- 

L)=Z*  !!   IF  (M=100)+(M= 

105) THEN  GOSUB  70 
250  GOSUB  40  ! :  RETLRN 
260  F«="000000010010001 1010 

0010101 1001 1 1 10001001 10 

1010:11100110111101111" 
270  FOR  1=0  TO  15  : :   Z*=SEG 

«  (F»,  I  t4+l  ,4)  :  ;  D«="  •' 
280  FDR  J=l  TO  4  : :  T=VAL(S 

EG« (Z*, J, 1 ) ) +141   : :   D«= 

D«t<CHR«  (T>  :  :  NEXT  J  :: 

C4 ( I ) =Dt  : :  NEXT  I 
290  CALL  CHAR ( 141 ,"", 142, RP 

T*  C  "F"  ,  16)  ,  143,  "FF81B1B 

IBIBIBIFF" ) : :  FOR  1=141 
TO  143  ::  CALL  CHARPAT 

< I , A* ( I-L) ) : :   N*(I-L)=A 

*  (  I-L)  :  :  NEXT  I 
300  CALL  DELSPRITE (#1 ) : :  CA 

LL  CLEAR  : :  FOR  1=2  TO 

14  ::  CALL  C0L0R(I,2,I+ 

2)1!  NEXT  I 
310  FOR  I=L  TO  143  ::  PRINT 
CHR«  <  I  )  ;  :  5  NEXT  I  :  :   D 

ISPLAY  AT ( I , 1 1 ) : "SUPERF 

ONT"  : :  GDSUB  1 1 00 
320  FOR  R=l  TO  8  : :  CALL  HC 

MAR (R+1 , 3, 141 ,8) : :  NEXT 
R 
330  BR=20  : :  BC=2  : :  W=L 
340  CALL  SOUND ( 100, B00, 2) : : 
DISPLAY  AT (3, 15) : "MODE 

7  " 
350  CALL  KEYC0,M,S)::   IF  S= 

0  THEN  350 
360  IF  MO101  THEN  510 
370  T=l  ::  GDSUB  1200  ::  GO 

SUB  9B0  ! :   IF   (F=l ) » (K< 

>112)THEN  30  ELSE  IF  K= 

112  THEN  M=K  ::  GOSUB  4 

0  : :  GOTO  910 


380  GOSUB  70  : s   Z=l 

390  CALL  SPRITE (#1 , 143, 10, 9 

,17)::  R=.l  ::  C  =  2  ::  CA  720 
LL  GCHAR (R+1 , C+1 , T)  730 

400  CALL  KEY(0,K,S)::   IF  (K 
=13) + (K=l 12) THEN  ROW=R 
::  GOSUB  100  ::  GOSUB  1 
1B0  !!   IF  K<>112  THEN  D    740 
N  Z  SOTO  340,590 

410  IF  (K>13)THEN  M=K  ::  GO  750 
TO  360 

420  CALL  JOYST  (  1  ,  X, Y)  :  :  IF  760 
ABS (X) +ABS (Y)=B  THEN  42  770 
0 

430  CALL  KEY f 1 , KK, S> : s  IF  ( 
KK<>18)«(ABS(X)+ABS(Y)- 
0)THEN  400  780 

440  OK=0  ::  IF  ABS(X)+ABS(Y 
)=4  THEN  0K=1 

450  C=C- (X=4) + (X--4) : :  R=R-  790 
(Y=-4) + ( Y=4> 

460  C=C- (C=l ) t8+ (C-10) »8  ::     S00 
R=R- (R-0) »8+(R-9) «e 

470     CALL     LOCATEdtl  ,  8»R+1  ,  8» 

C+1)  810 

480  IF  <KK=18) « (DK=0) THEN  C  820 
ALL  GCHAR(R+1 ,C+1 ,T) : !  830 
T=2S3-T  a40 

490  IF  (QK=1 ) * (KK< >1B) THEN 

CALL  GCHAR (R+1 , C+1 , T)       850 

500  CALL  HCHAR (R+1 , C+1, T) ! ! 
CALL  S0UND(-1 , 294, 3) ! I 
GOTO  400 

510  IF  MO110  THEN  570 

520  T-1  i:  GOSUB  1200  ::  GO 

SUB  980  ::  IF  F=l  THEN  b60 
30  870 

530  DISPLAY  AT (5, 12) : "CHAR      gB0 
HEX  CODE?"  ::  ACCEPT  AT 
<6,  11  )SIZE(16> BEEF: D«  : 
i   IF  LEN(D»)<>16  THEN  5     b90 
30 

540  BOSUB  60  i !  BDSUB  960       900 

550  NS(U-L}»ZC  ::  GOSUB  80 
: :  CALL  CHAR (W, Z«) 

560  GOSUB  40  : :  GOTO  590 

S70  IF  M0114  THEN  600 

580  GOSUB  1200  : :  CALL  CHAR    910 
CW, A* (W-L) ) ; ;  N«(W-L)=A 
*(W-L)  920 

590  Z»l  ::  GOSUB  40  ::  GOSU 

B  70  ; :   M-101   !J  GDSUB      930 
1180  :s  CALL  HCHAR(3,17    940 
,69)$!  CALL  SOUND(50,8B 
0,3);:  GOTO  390 

600  IF  M<>104  THEN  620 

610  GOSUB  1200  !!   FOR  I-L  T 

0  143  ::  CALL  CHAR{1,A«  950 
(I-L))::  N»  (  I-L)=-A«  (  I-L  960 
) : :  NEXT  I  : :  GOTO  590 

620  IF  M<>102  THEN  670 

630  GDSUB  1200 

640  DISPLAY  AT (5,  15)  !"  1ST  C 

HAR?"  s:  GOSUB  9B0  ::  I  970 
F  F»l  THEN  30  ELSE  TM-W 

650. GOSUB  70  t:  DISPLAY  AT (    9B0 
5, 15): "2ND  CHAR?"  ::  GO 
SUB  980  ::   IF  F=l  THEN     990 
30  ELSE  CALL  DELSPRITE( 
Ml  ) 

660  CALL  CHARPAT (TM, Z«) : :  C    1000 
ALL  CHAR(M,Z«)::  N*(H-L 
)  "'Z*  :  :  GOTO  590  1010 

670  IF  M=109  THEN  GOSUB  120 

0  ::  GOSUB  100  ::  BDTO     1020 
590 

680  IF  M-118  THEN  BDSUB  120    1030 
0  : :  GOSUB  100  ::  GOTO 
590  1040 

690  IF  M097  THEN  730 

700  GOSUB  1200  1050 

710  GOSUB  100  ::  GDSUB  70  i 

:  GDSUB  1180  ::  T-0  ::     1060 
D*="AGAIN  (Y/N)?"  ::  GO 


SUB  1220  ::  GDSUB  40  :: 

IF  T=l  THEN  710 
GOTO  590 
IF  M=99  THEN  GOSUB  1200 

: :  D«=RPT« ("0" , 16) : :  C 
ALL  CHAR(W,D«):s  N*(W-L 
)-D»  ::  GOTO  590 
IF  M=105  THEN  GOSUB  120 
0  :  :  Z  =  2  :  :  GOTO  390 
IF  M=100  THEN  GOSUB  120 
0  : !   2=2  I !  GOTO  390 
IF  M0119  THEN  S20 
T=l  ::  GOSUB  1200  ::  GO 


1  THEN 
ELSE  GO 


SUB  980  : :  IFF 
F=»0  '.  :  GOTO  B10 
SUB  70 

DISPLAY  AT  (7,  16)  :  '■CHAR  = 

" ; W  : :  DISPLAY  AT (9, 1 1 > 

: NS (W-L) 

D*»"AGAIN ( Y/N)  ?"  ::  GO 

SUB  1220 

CALL  HCHAR (9, 1 1 , L, IB) : : 

IF  T=l  THEN  GOSUB  40  : 
!  GOTO  770 

GOSUB  60  : :  GOTO  340 
IF  M<>10a  THEN  860 
GOSUB  1200 

GOSUB  940  ::  OPEN  #l!D« 
, INTERNAL, INPUT  , FIXED 
INPUT  #1:T,N«(T)::  IF  T 
<>112  THEN  CALL  CHAR(T+ 
L,N«(T)>::  GOTO  850  ELS 
E  CLOSE  »I   : 5  GOSUB  60 
::  IF  ASC(D«>=67  THEN  3 
00  ELSE  340 
IF  M<  >1  15  THEN  910 
GOSUB  1200  ::  GOSUB  940 
OPEN  #1 : D«, INTERNAL, OUT 
PUT, FIXED  ::  FOR  I-L  TO 

143 
IF  Nt ( I-L) <>A$ ( I-L) THEN 

PRINT  #1 : I-L, N* ( I-L) 
NEXT  I  !  ;  T=l  12  :  :  F«=" 
"  :  :  PRINT  #1  :  T,  F»  :  :  C 
LOSE  ttl  : :  GOSUB  60  : : 
IF  ASC(D«>=67  THEN  300 
ELSE  340 

IF  M=112  THEN  H= 1  :j  BD 
SUB  1260 

IF  M=116  THEN  H=0  ::  GD 
SUB  1260 
GOTO  340 

DISPLAY  AT(5,13>:Q*  :: 
ACCEPT  AT(6,14):D»  :;   I 
F  D*=""  THEN  GDSUB  60  : 
:  GOTO  340  ELSE  GOSUB  9 
60 

RETURN 
Z«=" 
(D*) 


:  FOR  1=1  TD  LEN 
F«=SEG* (D«, 1,1): 
:  IF  (ASC(F«) >96) » (ASC ( 
F»)<123>THEN  F«=CHR*(AS 
C (F«> -L) 

2«  =  Z»S,F«  :  :  NEXT  I  :  ;   D 
*=Z»  ! :  RETURN 
CALL  SPRITE (#1  ,  143,  10, B 
R«8+l , BCtB+I ) 
CALL  JDYST ( 1 , X , Y) : :   IF 
ABS(X) +ABS(Y) =8  THEN  99 
0 

BC=BC- (X=4) + (X=-4 ) : :  U 

■=W-  (  X  =  4)  +  (X=-4) 

BR=BR- ( Y=-4) + (Y=4) : :  W 

=W-<Y=-4>*28+(Y=4)t2B 

IF  BC<2  THEN  BC=29  : : 

BR=BR-I 

IF     B029     THEN     BC  =  2     :  : 

BR=BR+1 

IF     BR<20     THEN     BR«23     :: 
W="W+1  12 

IF     BR>23     THEN     BR=20     :: 
W=W-1 12 

CALL     KEY ( 1 , KK,ST) ; :      CA 

LL     KEY (0, K, S> 
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1070  I 

E 

1080  I 
N 
0 
) 

1090  G 

1  100  D 
I 

1110  D 
S 
E 

1  120  D 
P 
A 

1  130  D 
R 
S 

1  140  D 
T 


F  S<  >0 
M=l  1  1 
CftLL 
RETURN 
F  KK=1 
0(10,1 
CA 
RET 
OTD  9B 
ISPLflY 
T"! TAB 
ISPLAY 
TORE  C 
STORE 
ISPLAY 
Y" ; TAB 
TA" 

ISPLAY 
RDR" ; T 
E" 

ISPLAY 
ATE" ; T 


THEN  F-=l  :  :  IF 
THEN  RETURN  ELS 
DELSPRITE («1  )  :  : 

a  THEN  CftLL  SOU 
10,2)::  GDSUB  4 
LL  DELSPRITE(»l 
URN 
0 

AT  <  1  1 ,  1  >  :  "E  ED 
( 14) ; "N  INPUT" 

AT ( 12, 1 ) : "R  RE 
H" ;  TAB  C 14)  ;  "H  R 
ONSET" 

AT  f 13,  1 )  :  "F  CO 
( 14) ! "W  WRITE  D 

AT  i  14,  1  )  :  "M  MI 
AB ( 14) ; "V  REVER 

AT ( 15, 1 ) : "A  RQ 

AB( 14) ; "C  CLEAR 


1150  DISPLAY  AT(16,l)i"I   IN 

SERT" ; TAB( 14) ; "D  DELET 

E" 
1160  DISPLAY  AT(17,1):"L  LO 

AD  FONT"; TAB (14) ; "S  SA 

VE  FONT" 
1170  DISPLAY  AT(ia,l):"P  PR 

INT  CH" ; TAB ( 14) ; "T  PRI 

NT  CHSET"  : :  RETURN 
1180  FOR  1-^0  TO  5  STEP  2  :: 
CALL  HCHAR  (7,  17+1 , W)  : 

:  NE)(T  I  :  :  RETURN 
1190  R=20  ::  C=2  ::  W=L  :: 

CALL  BPRITE(#1 , 143, 2,R 


1200 


1210 
1220 


1230 
1240 


1250 

1260 

1270 
1290 

1290 
1300 

1310 


«B+1 ,C«B+1) 
GOSUB  50  : : 
(3,17, M-L> ! 
EN  DISPLAY 
ICK  A  CHAR" 
RETURN 
DISPLAY  ftT( 

PICCEPT  AT( 
ALIDATE ( "yn 
«  : :  IF  Z»= 
1 

RETURN 
CALL  CLEAR 
EEN(E)::  DI 
, 7) : "LOADIN 

: !  FOR  1=1 
!   CALL  CHAR 
XT  I 
FDR  I=L  TO 

CHARPAT ( I , 
N$ ( I-L) =A« ( 

I   : :   RETUR 
DISPLAY  flT( 
T"  : :  OPEN 
.BA-9600.DA 
TM=W  : :  IF 
00 

FOR  T=L  TD 
*(T-L) <  >A«  < 
T  ELSE  J350 
E=E+1  :  :  E-= 

! :  CALL  SC 
IF  (  (F=l)  * ( 
THEN  GOSUB 

11B0 
FOR  R=2  TO 

THEN  PRINT 


J :  RETURN 

CALL  HCHAR 
:   IF  T=l  TH 
AT  C5,  15)  :  "P 
:  :  T  =  0 

5, 15) : D»  : : 

5,27)BEEP  V 
"  )  S  I  Z  E  (  1  )  :  Z 
"V"  THEN  T= 


: :  CALL  SCR 
SPLAY  AT(12 
B  CHARPATS" 
27  TO  140  : 

( I , " " ) : :  NE 

140  : :  CALL 
fl* ( I-L) ) : : 
I-L) : :  NEXT 
N 

3,  15)  :  "PR  IN 
«1 : "RS232/2 
=8. Pfi=N" 
H=l  THEN  13 

143  : !  IF  N 
T-L)THEN  W= 

<E=17) » 14+E 
REENCE) 
H=l ) ) +(H=0) 
70  : :  GDSUB 

9  ! s   IF  R=5 
#1 : TAB(5) ; 


"CHR«  #  -  "lc"<  "ttSTRt  (W 
)!.">") 

1320  PRINT  #1 : TAB(30) ; : :  FO 
R  C"3  TO  10  I !   CALL  GC 
HAR(R, C, X) ; :   IF  X=141 
THEN  X=45  ELSE  X=Ba 

1330  PRINT  #1 : CHR* f X ) ; : :  NE 
XT  C  ! :  IF  R=5  THEN  PR 
INT  #1 : TAB (47) ; "HEX  CD 
DE  -  "!<"<  "«iN«  (W-L)  8."  >" 

1340  NEXT  R 


PRINT  #1  ! I 

N  1360 
1350  NEXT  T 
1360  CLOSE  ttl  : : 
i  s  E=15  !  : 

LL  SCREEN(E) 


PRINT  #1 
I   IF  H=l 


F  =  0  : 
W  =  TM 


THE 


H  =  0 
CA 


RETURN 


Program  2: 
Loader 


Character  Set 


100 

1  10 
120 
130 
140 

150 


160 

170 


:  GAMF 

'GET  REDEFINED  CHARS 
CALL  CLEAR 
B*="DSK1 , FONT " 
OPEN  «1 : B«, INTERNAL, INP 
UT  .FIXED 

INPUT  #l:F,NEWAt  ::   IF 
F<>112  THEN  CALL  CHAR(F 
+32,NEWA*)::  PRINT  CHR* 
(F+32) ; : :  GOTO  150 
CLOSE  *1 

FOR  T=l  TO  1000  : :  NEXT 
T  O 


niOLu    available     to    eueruonei 
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Apple  ProDOS  Variable  Lister 


This  fast  machine  language  utility 
takes  the  pain  out  of  debugging  BASIC 
programs  by  listing  the  current  value 
of  every  program  variable.  You  can 
also  make  a  hardcopy  of  the  variable 
list,  ProDOS  is  required. 

How  many  times  have  you  run  a 
program,  only  to  get  a  message  like 
OVERFLOW  ERROR  IN  240,  or 
worse  yet,  BAD  SUBSCRIPT  ER- 
ROR IN  240?  When  you  list  the  line 
in  question,  it  may  look  something 
like  this: 

240  AS(X  +XZ,2  '(8/4  =  0  +  1),B  /  4) 
=  STR$  (Z) 

To  locate  the  error,  you'll  need 
to  type  PRINT  X,  followed  by 
PRINT  XZ  and  so  on,  to  find  the 
current  value  of  each  variable.  This 
is  a  slow,  tedious  way  to  debug  a 
program,  especially  when  you  find 
that  some  of  these  variables  were 
defined  with  other  formulas. 

"Apple  Variable  Lister"  takes 
the  drudgery  out  of  such  debugging 
tasks  by  quickly  listing  the  current 
value  of  every  variable  in  your  pro- 
gram. The  program  is  written  in  ma- 
chine language  and  works  on  any 
Apple  II  series  computer  with 
ProDOS. 

You  can  use  this  utility  even  if 
you  don't  understand  machine  lan- 
guage: The  BASIC  loader  program 
listed  below  creates  the  machine 
language  and  saves  it  on  your  disk. 
Type  in  the  loader,  and  save  a  copy 
before  you  run  it  in  case  you  made  a 
typing  error.  The  program  has  a 
checksum  to  catch  errors  and  identi- 
fy any  lines  that  have  mistakes.  If  no 
errors  are  found,  it  prints  OK  and 
saves  the  utility  with  the  filename 
VAR.LIST  on  your  disk  as  a  binary 
file. 

Once  this  is  done,  you're  ready 
to  use  the  lister.  Enter  BLOAD  VAR. 
LIST  to  load  it  into  memory,  fol- 
lowed by  HIMEM:  31000  to  set  the 
top  of  memory.  You  will  ordinarily 
want  to  do  this  at  the  beginning  of  a 
programming  session.  To  list  your 
variables,  simply  type  CALL  32000 
and  press  RETURN.  The  same  com- 
mand can  run  the  routine  from  with- 
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in  a  BASIC  program.  To  make  a 
hardcopy  of  the  variable  list,  enter 
PR#1  before  calling  the  routine. 

A  Chronological  List 

Variable  Lister  displays  your  pro- 
gram's arrays  first,  followed  by 
floating  point,  string,  and  integer 
variables.  The  variables  are  dis- 
played in  chronological  order  (the 
order  they  are  used  in  the  program), 
not  alphabetically.  Although  Apple- 
soft BASIC  allows  arrays  with  up  to 
88  dimensions  and  as  many  ele- 
ments per  dimension  as  available 
memory  will  allow.  Variable  Lister 
is  more  restrictive.  For  this  program, 
arrays  are  limited  to  three  dimen- 
sions and  a  maximum  of  254  ele- 
ments per  dimension.  Attempting  to 
list  a  larger  array — for  example,  the 
one  created  by  DIM  A$(500)— 
crashes  the  utility. 

Note  that  Variable  Lister  cannot 
display  a  variable  until  it  has  actual- 
ly been  used  in  the  program.  For 
instance,  consider  the  following 
line: 

10  A$  =  "YES":IF  A$  =  "NO"  THEN 

B$  =  "OK" 

Since  the  IF  condition  can  never 
be  satisfied,  B$  will  not  appear  on 
the  variable  list  unless  the  program 
uses  it  elsewhere.  This  is  no  problem 
when  debugging,  since  you're  inter- 
ested only  in  variables  that  were 
used  up  to  the  time  the  program 
crashed.  However,  to  make  a  com- 
plete variable  list  for  permanent 
documentation,  you'll  need  to  run 
your  program  until  you  know  that 
every  variable  has  been  used. 

Apple  Variable  Lister 

100  HOME  I  PRINT  "CREATING  VAR. 

LIST":  HIMEMs  31000 
110  X  =  32000: TC  =  0:  PRINT 
120  Z  =  0!  FOR  fl  =  0  TO  9 
130  READ  Ps  POKE  X,P;Z  =  Z  +  P 
140  X  =  X  +  1;  IF  X  >  32601  THE 

N  200 
150  NEXT  A:TC  =  TC  +  Z 
160  READ  As  IF  A  =  Z  THEN  120 
170  PRINT  "ERROR  IN  DATA  " 
1B0  PRINT  "CHECK  LINE  #  ";X  .-  3 

1010:  STOP 
190  : 
200  IF  TC  =  B523B  THEN  PRINT  "Q 

K":  PRINT   CHR«  <4) ; "BSAVE 

VAR. LIST, A47D00,L601":  END 


210  PRINT  "ERROR  IN  DATA  " 

220  PRINT  "MISSING  A  LINE":  STD 

P 
1000  DATA  032,  127,  125,  169,  0 
00,  133,  004,  032,  017,  12 

5,  764 

1010  DATA  230,  004,  032,  017,  1 
25,  230,  004,  169,  141,  03 

2,  934 

1020  DATA  237,  253,  165,  106,  1 
33,  236,  165,  105,  20B,  00 
9.  1617 

1030  DATA  169,  007,  024,  101,  2 
35,  144,  002,  230,  236,  13 

3,  1281 

1040  DATA  235,  165,  236,  197,  1 

08,  144,  009,  240,  001,  09 

6,  1431 

1050  DATA  165,  235,  197,  107,  1 
76,  249,  032,  251,  126,  22 
B,  1766 

1060  DATA  004,  208,  223,  032,  0 
19,  127,  160,  002,  166,  00 

4,  945 

1070  DATA  240,  029,  202,  240,  0 
13,  169,  165,  032,  237,  2S 

3,  15B0 

1080  DATA  032,  072,  249,  032,  2 
28,  126,  20H,  19a,  169.  16 

4,  1478 

1090  DATA  032,  237,  253,  032,  1 
73,  126,  032,  ISB,  126,  20 
B,  1407 

1100  DATA  1B5,  032,  072,  249,  1 

64,  236,  165,  235,  024,  10 

5,  1467 

1110  DATA  002,  144,  001,  200,  0 

32,  249,  234,  032,  046,  23 

7,  1177 

1120  DATA  169,  141,  032,  237,  2 

53,  208,  159,  169,  000,  13 

3,  1501 
1130  DATA  004,  032,  141,  125,  2 

30,  004,  032,  141,  125,  23 

0,  1064 
1140  DATA  004,  169,  141,  032,  2 

37,  253,  165,  107,  133,  23 

5,  1476 
1150  DATA  165,  108,  208,  011,  1 

65,  237,  024,  101,  235,  13 
3,  1387 

1160  DATA  235,  165,  238,  101,  2 
.36,  133,  236,  197,  110,  24 

e,   1891 

1170  DATA  003,  144,  007,  096,  1 
65,  235,  197,  109,  176,  24 

9,  1381 

1180  DATA  160,  003,  177,  235,  1 

33,  238,  136,  177,  235,  13 
3,  1627 

1190  DATA  237,  032,  251,  126,  2 

28,  004,  208,  212,  132,  25 

2,  1682 
1200  DATA  132,  251,  132,  250,  1 

60,  004,  177,  235,  170,  20 

0,  1711 
1210  DATA  200,  177,  235,  149,  2 

49,  202,  208,  247,  134,  25 

5,  2056 
1220  DATA  134,  254,  134,  253,  1 

52,  056,  101,  235,  133,  23 

5,  1687 


1230  DATA  169,  000,  101,  236,  I  1360  DATA  032, 
33,  236,  032,  019,  127,  16         27,  126, 
6,  1219  B,  1227 

1240  DATA  004,  208,  005,  032,  0  1370  DATA  126, 
44,  126,  20B,  011,  202,  20        05,  002, 
B,  1B4B  6,  1269 

1250  DATA   005,  032,  074,  126,  13B0  DATA  133, 
20B,  003,  032,  102,  126,  1         68,  032, 
64,  B72  3,  1741 

1260  DATA  253,  166,  254,  165,  2  1390  DATA  032, 

55,  200,  196,  250,  144,  01         51,  240, 
6,  1B99  2,  1246 

1270  DATA  160,  000,  232,  228,  2  1400  DATA  237, 
51,  144,  009,  162,  000,  02         32,  034, 
4,  1210  0,  1759 

12S0  DATA  105,  001,  197,  252,  I  1410  DATA  010, 
76,  009,  132,  2S3,  134,  25         37,  253, 

4,  1513  4,  1359 
1290  DATA  133,  255,  076,  236,  1  1420  DATA  127, 

25,  165,  236,  076,  167,  12         37,  253, 

5,  1594  7,  1561 
1300  DATA  032,  127,  126,  165,  2  1430  DATA  235, 

35,  164,  236,  032,  249,  23         77,  235, 

4,  1600  7,  1634 
1310  DATA  032,  046,  237,  169,  1  1440  DATA  235, 

41,  032,  237,  253,  024,  16         32,  072, 
9,  1340  2,  1183 

1320  DATA  005,  101,  235,  144,  0  1450  DATA  237, 
02,  230,  236,  133,  233,  09         40,  018, 

6,  1417  2,  1395 
1330  DATA  169,  164,  032,  237,  2  1460  DATA  009, 

53,  032,  127,  126,  160,  00         53,  165, 
0,  1300  2,  1517 

1340  DATA  032,  173,  126,  152,  0  1470  DATA  200, 

56,  101,  235,  133,  235,  16         69,  162, 
9,  1412  "?,  1872 

1350  DATA  000,  101,  236,  133,  2  1480  DATA  141, 

36,  076,  191,  126,  169,  16         77,  235, 

5,  1433  7,  1787 


237,  253,  032,  1   1490 
160,  000,  032,  22 

024,  165,  235,  1    1500 
144,  002,  230,  23 

235,  096,   169,   1    1510 
237,  2S3,  165,  25 

034,  127,  165,  2   1520 
024,  169,  172,  03 

253,  165,  254,  0   1530 
127,  165,  252,  24 

169,  172,  032,  2   1540 
165,  255,  032,  03 

169,  169,  032,  2   1550 
076,  072,  249,  17 

133,  142,  200,  1   1560 
133,  002,  200,  17 

133,  003,  096,  0   1570 
249,  169,  162,  03 

253,  166,  142,  2   15B0 
160,  000,  177,  00 

128,  032,  237,  2   1590 
241,  032,  16B,  25 

202,  208,  240,  1    1600 
032,  237,  253,  16 

076,  237,  253,  1    1610 
133,  15B,  200,  17 


DATA  235,  133,  159,  162,  1 
44,  024,  032,  155,  235,  03 
2,  1311 

DATA  046,  237,  169,  141,  0 
76,  237,  253,  162,  000,  16 

0,  14S1 

DATA  001,  177,  235,  016,  0 

01,  232,  009,  128,  133,  00 
1,  933 

DATA  136,  177,  235,  016,  0 
01,  232,  009,  128,  133,  00 
0,  1067 

DATA  096,  165,  000,  032,  2 
37,  253,  165,  001,  032,  23 

7,  1218 

DATA  253,  165,  241,  076,  1 
68,  252,  160,  000,  162,  00 
0,  1477 

DATA  201,,  100,  144,  012,  1 
60,  176,  162,  176,  200,  05 

6,  13S7 

DATA  233,  100,  201,  100,  1 
76,  248,  201,  010,  144,  01 
0,  1423 

DATA  162,  176,  232,  056,  2 
33,  010,  201,  010,  176,  24 

8,  1504 

DATA  009,  176,  072,  138,  0 
72,  152,  240,  003,  032,  23 

7,  1131 

DATA  253,  104,  240,  003,  0 

32,  237,  253,  104,  076,  23 

7,  1539 

DATA  253,  000,  000,  000,  0 

00,  000,  000,  000,  000,  00 

0,  253 

DATA   000,  000,  000,  000, 

000,  000,  000,  000,  000,  0 

00,   0  ^ 
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S159.95  ojrnf^^g                 wtti  rrteorated  Maslpr  BeiioiTM  $199.95 

NBA.  8askBlbal[™ 

rhrjtatatasemanjgia]  analysis  wiUpravToe  me  iser  with   ALL  '  Beiiu>q  aui- 

jigns  Ariie  si&nrvj  Tglevani  rnlcumaiiKJ  -on  the  ttsh. 

$99.95  mmpiEie  wvMaiuai                      S129.95  NB^/Coiiege  Versjon 

LOT.  UlTTERY  AHALYSIS™ 

Slalisiical  companson  proaram  des-fpefl  to  aetetfi  sublte  paltfrns  m  wmiiq 

iDllcry  number 

S79.95  compieie  ^^Manuai                                      S99.95  m\  Lollo 

IBM^" 

APPLE"* 

TRS-80T« 

CPM^N 

COMMODORE'" 

Prof.  Jones 

1940  W.  Stalest. 
Boise,  ID  83702 

48 HR. FREE 
SHIPPING 

CPcALL 
208-342-6939 

TERMS    FREE  SHIPPING  ALL 
SOmVSRE    Ado  S6  00  HsiO- 
watc  i  S6  00  CO  D  J  UPS  Blue 
$6  00  /  Out  Ql  Counlry  £9  00^ 
ID  Resiflenis  4i^  /  3  weeKs  per- 
sonal cliEcks  i  Casti  puce  onfy, 
aiSO  2%  Visa.  MC  /  Prices  sun 
leci  10  cnange. 

BROCHURE  AVAILABLE 
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Atari  Cassette  Filenames 


Norman  Lin 


Do  you  have  trouble  loading  Atari 
cassette  files  because  you  keep  losing 
track  of  the  tape  counter  numbers?  Or 
maybe  you're  -wasting  lots  of  tape  by 
recording  only  one  program  per  cas- 
sette side.  Now  there's  a  solution — a 
clever  way  to  add  filename  capability 
to  Atari  cassettes.  The  technique 
works  on  any  Atari  400/800,  XL,  or 
XE. 


Unlike  some  other  tape  storage  sys- 
tems, the  Atari  doesn't  allow  file- 
names for  cassette  files.  You  must 
either  jot  down  the  tape  counter 
numbers  where  the  files  start,  or 
record  only  one  file  on  each  side  of  a 
cassette.  But  what  happens  if  your 
cassette  recorder's  counter  goes 
awry,  or  if  you  lose  the  index  num- 
bers? Things  would  be  a  lot  easier  if 
the  computer  could  locate  a  pro- 
gram in  the  middle  of  a  tape  and 
load  it  for  you. 

Finally  there's  a  simple  way  to 
solve  these  problems:  "Atari  Sear- 
cher/Loader." It  lets  you  save  nu- 
merous programs  on  a  single  side  of 
a  cassette,  and  then  automatically 
finds  and  loads  the  program  you 
want. 

Saving  Programs 

Atari  Searcher/Loader  is  very  easy 
to  use.  Just  follow  these  steps: 

1.  Type  in  the  program  listing 
following  this  article.  (Note:  Line  90 
is  too  long  to  be  typed  as  listed;  to 
enter  it,  you  must  abbreviate  POSI- 
TION as  POS.  When  you  list  the 
program,  POS.  automatically  ap- 
pears as  POSITION.  Don't  attempt 
to  edit  the  line  after  it  is  entered.  If 
you  make  a  mistake,  retype  the  en- 
tire line.) 

2.  Save  the  program  once  at  the 
beginning  of  each  tape  using  the 
LIST"C:"  command — not  the 
C5AVE  command.  (Just  type 
LIST"C:",  press  RETURN,  push  the 
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Play  and  Record  buttons  on  the  re- 
corder, and  hit  RETURN  again.  Of 
course,  you'll  have  to  start  with 
blank  tapes  to  avoid  overwriting 
programs  on  your  existing  tapes.) 
After  you've  saved  Atari  Searcher/ 
Loader  with  LIST"C:",  do  not  rewind 
the  tape.  Type  NEW  to  clear  Search- 
er/ Loader  out  of  memory. 

3,  Enter  the  following  short  line 
in  immediate  mode  (that  is,  without 
a  line  number): 

OPEN#1,8,0,"C;":?  #1; 
"filename":ClOSE  #1 

where  filename  is  the  name  you  wish 
to  assign  to  your  program.  Then 
press  the  Play  and  Record  buttons 
and  hit  RETURN  twice.  After  a  few 
seconds,  the  filename  is  written  onto 
tape  and  the  computer's  READY 
prompt  reappears. 

4.  Now  you  can  start  saving 
your  regular  program  as  usual,  ex- 
cept that  you  must  use  the  L[ST"C:" 
command  as  described  above  in- 
stead of  CSAVE.  If  you  want  to  load 
a  program  from  another  tape  to  save 
onto  the  Searcher/Loader  tape  with 
a  filename,  swap  cassettes  without 
rewinding  the  Searcher/Loader 
tape. 

Repeat  steps  3  and  4  for  each 
program  you  save  on  that  side  of  the 
tape. 

The  filename  can  be  anything 
you  like.  Disk  filenames  are  limited 
to  eight  characters  plus  a  three- 
character  extender  (such  as  PRO- 
GRAMl.BAS),  but  Atari  Searcher/ 
Loader  permits  much  longer 
filenames.  However,  you  should  not 
include  spaces  or  graphics  charac- 
ters as  part  of  a  name.  Sdck  to  let- 
ters, numbers,  and  common 
symbols.  Do  not  use  the  same  file- 
name more  than  once  on  the  same 
side  of  a  cassette.  It  is  a  good  idea  to 
write  the  filenames  on  the  cassette 
label  in  case  you  forget  them. 


Automatic  Loading 

Loading  your  programs  with  Atari 
Searcher/Loader  is  even  easier  than 
saving  them.  Suppose  you've  saved 
five  programs  on  one  tape  using  the 
above  procedure.  Their  filenames 
are  PROGl,  PROG2,  PROG3, 
PR0G4,  and  PROGS.  Now  you 
want  to  load  PROG4.  Just  follow 
these  steps: 

1 .  Rewind  the  tape  to  the  begin- 
ning and   load   Atari   Searcher/ 
Loader  by  typing  this  command  and 
pressing  RETURN: 

ENTER"C:" 

2.  When  the  READY  prompt 
reappears,   type   RUN.   Searcher/ 
Loader  asks,  FILENAME?.  Type  in 
the   filename   (in   this   example, 
PR0G4)  and  press  RETURN. 

Searcher/Loader  hunts 
through  the  tape  until  it  finds 
PROG4,  then  automatically  loads  it 
and  stops. 

How  It  Works 

After  Searcher/Loader  asks  you  for 
the  filename,  it  stores  the  name  in 
the  string  variable  A$  and  enters  the 
FOR-NEXT  loop  at  lines  40-80.  This 
loop  searches  for  and  loads  one 
block  of  data  at  a  time  (made  possi- 
ble by  the  LIST"C;"  format  in  which 
the  programs  are  saved).  Each  block 
of  data  is  stored  in  B$.  If  you'd  like 
to  see  these  blocks  of  data  printed 
on  the  screen  during  the  search  pro- 
cess, insert  line  65  PRINT  B$. 

Line  70  checks  to  see  if  B$ 
equals  A$ — in  other  words,  if  the 
block  of  data  loaded  is  the  same  as 
the  filename  you  specified  (which  is 
actually  a  block  of  data  in  itself).  If 
B$  does  not  equal  A$,  the  search 
goes  on.  If  an  error  occurs  or  the 
tape  ends,  Searcher/Loader  dis- 
plays the  error  message  at  line  100. 

If  a  block  of  data  loaded  corre- 
sponds to  the  specified  filename  (if 
B$=A$),  the  program  jumps  out  of 


the  FOR-NEXT  loop  and  goes  to  line 
90.  Line  90  clears  the  screen,  erases 
Searcher/Loader  from  memory,  and 
then  loads  the  program  that  follows. 
When  the  program  is  loaded,  the 
operation  stops. 

Although   slow,   Searcher/ 
Loader  does  eliminate  part  of  the 
hassle  of  cassette  files. 

Atari  Searcher/Loader 

Pleose  refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  before  entering  this  listing. 


Bl   10 


AD  20 
JB  30 

BE  40 
JE  S0 
m  60 
JE  70 
JA80 

00  90 


n  100 


REM  TO  SAVE  A  PROGRAM 
WITH  A  FILENAME,  TYPE 
□PEN  «1 ,B,0, "Cs " I ?»1 ; " 
EFILENAME]" : CLOSE  #1 
DIM  AC  (  100)  ,  BS  <2Si!>) 
?  "FILENAME";  1  INPUT  A« 
FOR  1=1  TO  1.0E+97 
OPEN  #1,4,0, "C: " 
TRAP  100! INPUT  «1,B* 
IF  B»=A«  THEN  90 
CLOSE  tlsPDKE  764,33lN 
EXT  I 

?  "  {CLEAR>"jPaSITiaN  2 

,4:?  "NEW":?  :7  :?  "EN 

TER" ; CHR« (34)  ;  "C:  "  ;  CHR 

«(34):?  !?  :?  "P0KE842 

, 12" sPOSITION  2,0iPOKE 

842,13!P0KE  764,33;EN 

D 

?  "BAD  BLOCK.   LOAD  FA 

ILED.  TRY  AGAIN. "    (9 
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Please  help  us  serve  you  better,  If  you 
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Change  Of  Address.  Please  allow  us 
6-8  weeks  to  effect  the  change;  send 
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/  VaT^I     BUSTERS 

software   *    books   *    supplies 

for 
apple  **  atari  **  canrodore  **  ilm-pc  **  pc-jr 
games   *   education  *   hare  management 
business   *    utilities  *    systeiss 

on 
d1  ste       cartridges       cassettes 
Our  prices  are  2SS  to  HK  or  more  below  retail . 
We  tiave  thousands  of  different  corputer  ttais. 
Aid,  YES,  they  ar^  the  teal  Thing... NOT  COPIES, 
Please  call  or  wite  fbr  our  currwt  price  list. 
— >  Be  sure  tt>  tell  us  rfiat  conxrter  you  have. 

>CODE  for  this  PRICE  LIST< 

A=^le  11+    D=^le  l*C     (K/64  01  si:    [=1B»^ 
8=#ple  lie    E=Atari  Disk    H</64  Cart  J-PCJr 
C=We  HE    F=Atari  Carl 
e  =  Educational    h  =  Itme  Ifee    r  =  Ftecneational 

Type  of      Store   Our  tere  of 

Conputer:      Price  Price PrograVItan 

ABC.E.G.IJ  $40  e  $35  Agent  lM.48k;[Atar1  $22) 

ABC.E.G.IJ  $40  r  $28  Ardion  (Electronic  Arts) 

ABC.E.G. ..  540  r  $28  Archon  II:  Adept  (E.frts) 

AEC.E.G...  $40r$26  Brxe  Lee.  ^ 

ABC.E.G.I.  $30  r  $20  Castle  Wolfenstein.  32^ 

.8C.E.G.U  S50r$35  Cut  «  Paste  Wjrd  Prooesser 

ABCD..G.IJ  $5QrS32  Deadline  (Infocon) 

ABC.E.G.  U  £J5e$23  Early  (^mes-Voung  Oil! dren 

H..  $40  h  $26  Fast  Load  Cartrldqe  (Epyx) 

Aac.E.G...  $40r$Z6  50  Mission  Crush  [S.S.I. ) 

ABCEE.G.IJ  $50  h  $35  Financial  Cookbock  (E.Art) 

ABC.E.G.IJ  $50  h  $35  Ri^  Similator  II 

AB.CE.ffll.  $35  r  $23  Frogger  {WC  $27) 

ABC.E.G.IJ  $35  r  $25  Hard  Itet  t^bck  (Bect.Arts) 

ABC.E.G...  $75  h  $49  rtme  fleet.  (Arr^ys/Cont'l) 

IJ  $150  h  $99  ttre  Acct.Plus  (Array/Con) 

ABC...G...  $70  h  $35  ttmewonl  (Sierra  Oi  Line) 

....E...I.  $70  h  $45  ttmaord  (Sierra  Qi  Line) 

ABCDe.GHlJ  $35  r  $23  Lode  Rjnner  (MAC  $27) 

ABCEE.G.IJ  $40  e  $26  NbsterType  (l*C  $331 

ABC...G.IJ  $50  e  $32  t^tti  Blaster  (Davidson) 

ABC.E.G...  $25  e  $18  Memory  Bl*-:Concentrat1on 

....E.G...  $40  r  $28  K.U.L.E.  (Electronic  Arts) 

ABC.E.G...  CALL  e  CAU  Huppet  Learning  Keys 

ABC.E.G.IJ  $40  r  $28  ftirder  on  tte  Zindemeuf 

ABC.E.G.IJ  $40  r  $28  ttisic  Construction  fet 

ABC $50eh$33  Newsroan.  641c  ((>eat!  1) 

ABC.E.G.IJ  MO  r  $28  1  on  1:  L.Bird  S  J.ErvIng 

ABCDE.G.IJ  S40  r  $38  Pinball  Construrtion  Set 

ABC.E.G...  $50  h  $32  Print  Stm  (Brodertond) 

AB...F.HI.  $35  r  $21  itot»tron  (Atari) 

ABC.E.G...  $20  r  $15  Sargofi  II  (Hayden) 

ABCO..G.IJ  $50  r  $32  Sargon  III  (tfeyden) 

ABC.E.G.IJ  $40r$28  7  Cities  of  Q)ld  (E.Arts) 

ABC...G...  $40  r  $28  ay  Fox  (Electronic  Arts) 

A8C,..G.IJ  $70  e  $45  Speed  Header  11  (tevidson) 

ABC...G.IJ  $40e$26  Spelllcopter  (DesigiMire) 

ABC.E.G.IJ  $40  r  $26  Suimer  GaiES  (IBM  Sept.85) 

ABCD..G.IJ  $35  r  $23  Transylvania  (MC  $27) 

ABCD..G.IJ  $40  r  $26  Trivia  Fever.  4ak  (Prof'l) 

ABCD-.G.!.  $50e$32  Typing  Tutor  III  (SimonSS) 

ABC.E.G.IJ  J60  r  $39  iJltima  11,111  (each).  48k 

ABC.G.IJ  $50  e  $32  Word  Attack  (Davidson) 

ABC.E.G...  $80h$52  Your  Personal  Net  Worth 

U$100h$65  Your  Personal  Net  Worth 

ABCD $45  r  $29  Tort;  1,2,3.  (each) 

G.IJ  $40  r  $26  Zork  1,2,3.  (each) 

*    Tl€  FIt£  PRIKT    * 
California  Buyers  Only:  Please  add  K  Sales  Tax. 
Shipning  Cost  for  Software  wittjin  Cont.48  states: 
UPS  a-oufri:  1  Itaii  =  $3.  Thereafter,  $1.50  ea. 
UPS  Air      :  1  Itan  =  $5.  Thereafter,  $2.00  ea. 
Air  t*n     :  1  Itm  -  $5.  Thereafter,  $3.00  ea. 
Alaska,  tbwaii,  FPO/APO,  Canada:  ane  as  Air  (*il 
VISA  i  tVCABD;  Please  add  3i  to  tie  above  cash 
prices.    Also  Include:  Card  #;  Expiration  Date; 
and  Cardholder's  signatiire. 
Cashier  Check/Credit  Card/ttiney  Orders  usually 

shipped  out  within  24  hrs.  Other  decks:  2  viks. 

Public/Parochial  School  Purchase  Cfxlers  /tcepted. 

This  ad  was  sitmitted  on  February  9th,  thsrefbre, 

Price/Avail  abilty  siiject  to  change.  In  case  of 

problaiE,  your  phone  I  will  help  us  notify  you. 

FAMILY  DISCOUNT 
COMPUTER  PRODUCTS 

250-2  So. Orange  Ave.  #540 
Escondido,  CA  9Z02S 

Phone:  (6  19)  489-1040 

>tfeREBATE  $1.  on  Phone  Orders< 
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MEMOREX 


MEMOREX® 
FLEX  DISKS 


LIFETIME  WARRANTYf 
J00%  ERROR  FREE 
Sold  in  boxe^  of  10 


SV."  DISKETTES 

SSDD S1.48ea. 

DSDD Sl,89ea. 

DS  DD  gSTPl S2.75  ea. 


m  Osnj;(y  lor  FC/AT    $4.40 , 
3'.i"  Micro  Disk    i2.9SeaA 


8"  DISKETTES 

SSSD S1.95ea. 

SSDD S2,35Ba. 

DSDD S2.75ea. 

Quar^mes  less  than  50  Diskellss. 

add  TD'o.  Shipping  &  Handl!r}g: 

S4.00.  WO  askeites:  Mi  Residenis, 

add  4%  Sales  Tar.  c.O.D.  aaa  $2.oo 


ORDER  TOLL  FREE! 


IIpI 
llr.  ill 


Precision  Data  Pmiuctj' 

po  Bo<a3e7 

Grara  RaaioG.  Ml  49509 

l616)45!-345? 

Micriigan  1  ■eO0-e32-24GS 

Outside  Ml  1,300'25S'002$ 


C.O.D. 


3M  Diskettes 
Lifetime  Warranty 


Think  you're  getting  the  best  price 
on  3M  Diskettes? 

You're  right  ."  .  ,  BUT  ONLY  IF  .  .  . 
You're  buying  from 
NORTH  HILLS  CORP. 
We  will  beat  any  nationally  adver- 
tised price'  or  give  you  a  15  disk 
library  case  FREE! 

Call  us  last— TOLL  FREE— ior  our 
best  shot  every  time, 

1-800-328-3472 
Formatted  and  hard  sectored  disks  in 
stock. 

Dealer  inquiries  lnvlte<a  COD'S  and  ctiorge  cords 
Qccepled  All  orders  shipped  Irom  stock  wil.'iin  24 
nogrs  Wt^v  wait  10  days  to  J?e  shipped^ 


AA4 


m 


North  Hills  Corporation 

356J  Rollins  Vie-*-  Pr 

While  Bear  Unite.  MN&51I0 

MN  Call  Coliect  l-Cil2-?70HCMe5 

veriliable.  same  producl  same  quantities 


MEMOREX 

FLfiSOBLE  DISCS 


WE  WILL  NOT  BE  UNDER- 
S0LDI1  Call  Free  (800>235-4137 

for  prices  and  informatioa  Dealer 
inquiries  invited  and  CO.D.'s 
accepted 


PACIHC 
EXCHANGES 

100  Foothill  Blvd- 
San  Luis  Obispo,  CA 
93401    In  Cal  call 
(800)592-5935  or 
(805)643-1037 
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COMPUTEI's  Guide 
To  Typing  In  Programs 


Before  typing  in  any  program,  you  should  famil- 
iarize yourself  with  your  computer.  Learn  how  to 
use  the  keyboard  to  type  in  and  correct  BASIC 
programs.  Read  your  manuals  to  understand  how 
to  save  and  load  BASIC  programs  to  and  from 
your  disk  drive  or  cassette  unit.  Computers  are 
precise — take  special  care  to  type  the  program 
exactly  as  listed,  including  any  necessary 
punctuation  and  symbols.  To  help  you  with  this 
task,  we  have  implemented  a  special  listing 
convention  as  well  as  a  program  to  help  check 
your  typing — the  "Automatic  Proofreader." 
Please  read  the  following  notes  before  typing  in 
any  programs  from  COMPUTE!.  They  can  save  you 
a  lot  of  time  and  trouble. 

Since  programs  can  contain  some  hard-to- 
read  (and  hard-to-type)  special  characters,  we 
have  developed  a  listing  system  that  spells  out  in 
abbreviated  form  the  function  of  these  control 
characters.  You  will  find  these  special  characters 
within  curly  braces.  For  example,  {CLEAR}  or 
{CLR}  instructs  you  to  insert  the  symbol  which 
clears  the  screen  on  the  Atari  or  Commodore  ma- 
chines. A  symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  If  you  see 
{A},  hold  down  the  CONTROL  key  and  press  A, 
Commodore  machines  have  a  special  control  key 
labeled  with  the  Commodore  logo.  Graphics 
characters  entered  with  the  Commodore  logo  key 
are  enclosed  in  a  new  kind  of  special  bracket,  A 
graphics  character  can  be  listed  as  [<A>3.  In  this 
case,  hold  down  the  Commodore  logo  key  as 
you  type  A.  Our  Commodore  listings  are  in 
uppercase,  so  shifted  symbols  are  underlined.  A 
graphics  heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT-SPACE},  Hold 
down  SHIFT  and  press  the  space  bar. 

If  a  number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  \<8  Q>j,  you  would  enter  five 
cursor  rights,  six  shifted  S's,  or  eight  Com- 
modore-Q's.  On  the  Atari,  inverse  characters 
(printed  in  white  on  black)  should  be  entered 
with  the  Atari  logo  key.  Since  spacing  is  some- 
times important,  any  more  than  two  spaces  will 
be  listed,  for  example,  as:  {6  SPACES}.  A  space 
is  never  left  at  the  end  of  a  line,  but  will  be 
moved  to  the  next  printed  line  as  {SPACE}. 
There  are  no  special  control  characters  found  in 
our  IBM  PC/PCjr,  TI-99/4A,  and  Apple  program 
listings.  For  your  convenience,  we  have  prepared 
this  quick-reference  key  for  the  Commodore  and 
Atari  special  characters: 


Atari  400/800/XL 


Wtien  you  see 

tCLEARJ 

{UP3 

CDONN} 

CLEFT> 

{RIQHT> 

CBACK  S} 

CDELETEJ 

t INSERT} 

(DEL  LINE> 

<INS  LINE} 

CTAB3 

CCLR  TAB} 

CSET  TAB} 

CBELL} 

{ESC3 


Type 


ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 

esc 

ESC 
ESC 
ESC 
ESC 
ESC 


SHIFT  < 
CTRL  - 
CTRL  - 
CTRL  + 
CTRL  * 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


* 


4 

u 
□ 


CI w^r    Scrven 
Cursor-  Up 
Cursor'  DoMn 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
Escape  key 


Commodore  PET/CBM/VIC/64 


When  You 
Read: 

{CLR] 

(home} 

lUP] 
! DOWN  1 
(LEFTl 

(right] 

{RVSt 
(OFF) 

IblkS 
Swht! 
(red) 
(cynJ 

(PURl 


CTRL 

1 

CTRL 

2 

CTRL 

3 

CTRL 

4 

CTRL 

S 

When  You 
Read:         Press: 

CRN]     I     CTRL    ]|~T" 
BLU]     I     CTRL  j[~^ 
YEL) 


Caa* 

Eg 

m 


Fl) 
F2] 
F3! 
F4) 
F5i 
F6) 
F7} 
F8) 

T 


] 


JJ 


The  Automatic  Proofreader 

Also,  we  have  developed  a  simple,  yet  effective 
program  that  can  help  check  your  typing.  Type 
in  the  appropriate  Proofreader  program  for  your 
machine,  then  save  it  for  future  use.  On  the  VIC, 
64,  or  Atari,  run  the  Proofreader  to  activate  it, 
then  enter  NEW  to  erase  the  BASIC  loader  (the 
Proofreader  will  still  be  active,  hidden  in 
memory,  as  a  machine  language  program).  Press- 
ing RUN/STOP-RESTORE  or  SYSTEM  RESET 
deactivates  the  Proofreader.  You  can  use  SYS  886 
to  reactivate  the  VIC/64  Proofreader,  or  PRINT 
USR(1536)  to  reenable  the  Atari  Proofreader.  The 
IBM  Proofreader  is  a  BASIC  program  that  lets 
you  enter,  edit,  list,  save,  and  load  programs  that 
you  type.  It  simulates  the  IBM's  BASIC  line  editor. 

Using  Ttie  Automatic  Proofreader 

Once  the  Proofreader  is  active,  try  typing  in  a 
line.  As  soon  as  you  press  RETURN,  either  a 
number  (on  the  Commodore)  or  a  pair  of  letters 
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Now,  the  lowest 
prices  ever  on 

3M  Scotch 

y  DISKETTES 

LIFETIME  WARRANTY! 


$149    "  $199 

I      Qly  50  5V.-DSDD       I     O'y- SO 


5'i-  SSDD  96TPI  —  $2.29  ea  5'i-  DSDD-96TPI  —  $2.85  es 
SOFT  SECTOR  ONLYI  Mm  IMU  M  ORDER:  20  DISKETTES 
ADD  3%  FDR  ORDERS       Mpl^^l  FLIP 'M  FILE  15 

UNDER 50!  11113*  r^,!',KS, 

Tfies&  are  lactory-fresh  3M  diskenespacked  in  boxes  ol  lOwiIn 
Tyvek  sleeves,  reinforced  hubs,  idsniification  labels  and  wnte- 
protect  labs 

3.5-MICH0-DISKEnES-SS-135TPI  -»  S2.89  63- 
LIFETIME  WARRANTY  ON  ALL  3M  SCOTCH  DISKETTES! 

HOURS:  8AM-5PM  Cenlral  Time,  Monday-Friday 

WE  WILL  BEAT  ANY  KflTIOHALLY  ADVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AMD  OUANTITIES! 

DISK  WORLD!,  Inc. 

Suile  4806' 30  EasI  Huron  Streel.Cmcago.lllinos  60511 


DIoK  Aulhorizad  DOtrtbutH 

WORLD!    i=- 


BASF 

QUALIMETRIC 
DISKETTES! 

LIFETIME  WARRANTY! 


$  1291k.  „$149 

I  0!y  20  DsoD       I  Qly-  20 

5'.i-  SSDD-96TPI  ^  S1.46  ea         SW  DSD0-96TPI  ^  S1.75  ea- 
PACKEO  IN  CARDBOARD  CASES! 
BASF  DUAIIMETRIC  DISKETTES  have  a  LIFETIME  WAR- 
RANTY wiih  Tyi/ek  sleeps,  reinlorced  hubs,  user  identification 
labels  arid  wnie-protecl  tabs 

SOFT  SECTOfl  ONLY!    MINIMUM  ORDER  20  DISKETTES 
flAS  F  3  5-  MICRO-FLOPPIES       BASF  5  U-RIGH  DENSITY 

fOfl  IBM  PC-AT 
SSOD-l35TPI^S2.50ea,  DSDD-HD    .S4.91ea 

for  orders  only:  information  & 

1-800-621-6827  inquiries: 

(In  Illinois:  1-312  944  278S)         1-312-944-2788 

HOURS  8AM-5PM  Cenlral  Time.  Monday- Friday 

WE  WILL  BEAT  ANY  NATIONALLY  AOVERTISED  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 


nlSK  Aulhorlzeil  Reseller  _ 

*"»''»  Information  Processina  ■    D  ACC 

WORLD!"- ■ 


Incredible  value! 

Nashua. 
Diskettes 


LIFETIME  WARRANTY! 


$105 

I  Qty.  50 


5 V*- SSDD  S    I  15 

Qty.  50  5%'DSDD        I   Qty.  50 


ea. 


These  arc  poly-bagged  diskettes  packaged  with  Tyvek  sleeves, 
reintoiced  hubs,  user  identification  labels  and  write-protect  tabs, 

NASHUA  Cdrporation  is  a  tialf-b:llion  dollar  corporation  and  a 
recogniied  leader  in  magnet  c  media 

SOFT  SECTOR  OI*LYI    Sold  in  multiples  of  50  only' 

for  orders  only:  information  & 

1-800-621-6827  inquiries: 

(In  Illinois:  1-312-944-2788)         1-312-944-2788 

HOURS:  8AM-5PM  Central  Time,  Monday-Fiiday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  TKE  SAME  PRODUCTS  AN  0  QUANTITIES! 

DISK  WORLD!,  Inc. 

Suile  4605 .30  East  Huron  Street.  Chicago,  lllinos  60611 


DISK 
WORLD! 


NASHUA 
Authorizwl  DitMbutor  MAQNETIC 
MEDIA 


BETTER  MODEMS 

AT  LOWER  PRICES! 

. .  .and  get  24-hour  shipping 

on  your  DISK  WORLD!  orders 


1200/300  Baud  300  Baud 

Avatex  Moidein  ^^  Avatex  Modein 

$189.95  ea.  "^^^      S59.95  ea, 

Avatex  Modems  have  everytfiing.  They're  inexpen- 
sive, Hayes-cotnpatible.  Auto  Dial.  Aulo  Answer  and 
high  quality  (bacl<ed  by  a  one-year  warranty). 

Best  of  all.  our  combination  includes  a  One-Year  FREE 
suliscription  to  MCI  MAIL  and  specral  communications 
software  for  placing  TOLL-FREE  orders  with  DISK 
WORLD!, 

Orders  received  via  fvlCI  MAIL  are  shipped  within 
24-hours  (subject  to  oroduct  availability). 
(Cables  are  net  included ) 
for  orders  only:  inf0f?mation  & 

1-800-621-6827  inquiries: 

(In  Illinois:  1-312  944  J768)         1-312-944-2788 

HOURS:  BAM-SPM  Central  Time.  Monday  Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

OK  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  Inc. 

Suite  4806  •  30  East  Huron  StreeS .  Cnicago,  lllinos  60611 


DISK 


Authohied  Distributor 


DISKETTE 
STORAGE  CASES 


AMAR  AY  MEDIA-MATE  SO:  A  REVOLUTION 
^1  IN  DISKETTE  STORAGE 

^B^  Every  once  in  a  while.  SDmeone  takes  the 

^HH»^       simple  and  makes  it  elegsnt'  This  unit  holds 

■I         ,■      50  5%"  diskettes,  has  grooves  for  easy 

^^       ^       slacking,  inside  nipples  lo  keep  Oiskeiles 

from  slipping  and  se^era'  other  features  We 

$10.95  ea,  "s^^ 

DISKETTE  70  STORAGE:  STILL  A  GREAT  BUY. 

Uust-fiee  storage  tor  70  5'/.'  diskettes 
SiK  dividers  included  Anexi;ellEnl  value, 

r-k-^,       VplSK  CADDIES  *  '  ''^^  ^^ 

.W  ^W  .^  The  original  tlip-up  holder  lot  10  i>'!i" 
J^i^^^diskettes,  Beige  Of  Qfly  only  CI  RR 

>Ur  ■-  2(K  Shpnq. 

for  orders  only:  information  & 

1-800-621-6827  inquiries: 

(Inlllinci!  1-312-9-14-27B8I         1-312-944-2788 

HOURS  eAM-5PM  Central  Tims.  Wotujay-Friday 

WE  WIL  L  BEAT  ANY  NATIONALLY  ADVE  RTISEO  PRICE 

ON  THE  SAME  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  Inc. 


Siiitp  4fin(i .  10  Ffl'it  Ho:nn  StrPPI  .  Htlir 


DISK 
WORLD! 


The  vBlue  leader  In 
Computer  supplies 
And  accessories. 


DISK  WORLD! 

Ordering  &  Shipping 
Instructions 


Shipping:  S'l"  i  3  5"  DISKETTES— Add  S3  00  per  eacli  1D0  or 
fewer  diskette?  Oltier  Items:  Add  sfirpping  charges  as  shown  tn 
addition  toother  shipping  charges.  Payment:  VISA  and  MASTER- 
CARD accepied.  COD  Orders:  Add  addilronal  S3  00  Special  Han- 
dling  charge.  APO,  FRO.  AK,  HI  S  PR  Orders:  Include  shipping 
charges  as  shown  and  addilidnal  S%  of  total  order  arrouhl  to 
cover  PAL  and  insurance.  Taxes:  Illinois  residents  only,  add  3^': 
sales  tai 

Prices  suPieci  to  change  without  nonce 
This  ad  supercedes  all  other  ads, 

Nol  responsible  lor  typographical  errors, 
IVIINIMUIvl  TOTAL  ORDER:  $35  00 


FOR  ORDERS  ONLY: 

1-800-621-6827 

(In  Illinois  1-312-944-2738) 


INFORMATION  * 
INQUIRIES: 

1-312-944-2788 


HOURS:  8AM-5PM  Central  Time 

Monday-Friday 

WE  WILL  BEAT  ANY  NATIONAL  LY  ADVERTISEO  PRICE 

DKTHE  SAf«IE  PRODUCTS  AND  QUANTITIES! 

DISK  WORLD!,  Inc. 

Suite  4806 .  30  East  Huron  Street  •  Chicago,  illmos  6061 1 


PRINTER 
RIBBONS: 


at 

extraordinary 
prices! 

Brand  new  nbpons.  maoufactufed  to  Original  Equipment 
Manufacturer's  specifications,  in  housinrfS  (Not  re-inked  or 
spools  only.) 

LIFETIIWE  WARRANTY! 

Epson  MX-70/80  . ,  S3.58  ea.  -i-  25C  Stipng. 

.  S4.95  ea. -f  25C  Shpng. 

S1.48ea. -i-25eShpng. 

S3.66ea.  -i-25GShpng. 

INFORMATION  & 
INQUIRIES: 

1-312-944-2788 


Epson  MX-10D 
Okidata  Micro83 , 
Okidata  Micro84 . 

FOR  ORDERS  ONLY: 

1-800-621-6827 

(In  Illinois  1-312-944-2788) 


HOURS  BAM-SPf^  Cenlral  Time,  Monday-Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAME  PROOUCTS  AND  QIJANTITIESI 

DISKWORLDMnc. 

Suite  4806  •  30  East  Huron  Street  •  Chicago,  lllinos  60611 


DISK 
WORLD! 


AIHANA 

DISKETTES 
The  great  unknown! 


QQC    ssoo  $-109 

^^Oty.50  5„,.osDD..|     Qty- 50 

You've  used  these  diskettes  liundreds  of 
tiiTies...as  copy-protected  originals  on  some  ol 
the  most  popular  software  packages.  They're 
packed  in  poly-bags  of  25  with  Tyvek  sleeves, 
reinforced  hubs,  user  identification  labels  and 
write-protect  tabs. 


LIFETIME  WARRANTY! 


SOFT  SECTOR  ONLY!     Sold  in  nnultiples 
of  50  only. 

FOR  orders  ONLY:  INFORMATION  & 

1-800-621-6827  inquiries: 

(In  Illinois.  1-312-944-2788)         1-312-944-2788 

HOURS'  3AM-5PM  Cenlral  Time.  Monday-Friday 

WE  Will  BEAT  ANY  NATIONALLY  ADVERTISED  PRICE 

ON  THE  SAKE  PRODUCTS  AND  OUANTniES! 

DISK  WORLD!,  Inc. 

Suits  4B06  .30  East  Huron  Sires;-  Chicago,  lllinos  60511 


DISK 
WORLD! 


ATHANA 
Authoiliad  Distributor   MAGNETIC 
MEDIA 


51 


Nail  down 
great  prices  on 

MEMOREX 

diskettes! 

LIFETIME  WARRANTY! 


28 

Qty,  20 


SVi- 
SSDD 


5%- 
DSDD 


$170 

I  oty.ao 


ID  I   °'Y- 


MEMOREX  DISKETTES  come  witfi 
heavy,  lintless  paper  sleeves,  reinforced 
hubs,  wnte-prolect  tabs  and  user  ID 
la^ls 

S50D  IKTPi  SOFT  SECTOfl  ONIYJ  F0fllBP^PC-4t 

SZ44e,i       MINIMUM  ORDER  20  DISKETTES      Sa.SSei 
INFORMATION  &  INQUIRIES: 
1-312-944-2788 

HOURS:  eAM-5Plvl  Central  Time 

Monday-Friday 

WE  WILL  BEAT  ANY  NATIONALLY  ADVERTISED  PfllCE 

ON  THE  SAME  PRODUCTS  AND  OUANTITIES! 

DISK  WORLD!,  Inc. 

Suite  4806  •  30  East  Huron  Street.  Chicago,  lllinos  60611 


DISK 
WORLD! 


(Atari  or  IBM)  appears.  The  number  or  pair  of 
letters  is  called  a  checksum.  Try  making  a  change 
in  the  line,  and  notice  how  the  checksum 
changes. 

All  you  need  to  do  is  compare  the  value  pro- 
vided by  the  Proofreader  with  the  checksum 
printed  in  the  program  listing  in  the  magazine.  In 
Commodore  listings,  the  checksum  is  a  number 
from  0  to  255.  It  is  set  off  from  the  rest  of  the 
line  with  rem.  This  prevents  a  syntax  error  if  the 
checksum  is  typed  in,  but  the  REM  statements 
and  checksums  need  not  be  typed  in.  It  is  just 
there  for  your  information. 

In  Atari  and  IBM  listings,  the  checksum  is 
given  to  the  left  of  each  line  number.  Just  type  in 
the  program,  a  line  at  a  time  (without  the  printed 
checksum)  and  compare  the  checksum  generated 
by  the  Proofreader  to  the  checksum  in  the  listing. 
If  they  match,  go  on  to  the  next  line.  If  not, 
check  your  typing:  You've  made  a  mistake.  On 
the  Commodore  and  Atari  Proofreader,  spaces 
are  not  counted  as  part  of  the  checksum,  and  no 
check  is  made  to  see  that  you've  typed  in  the 
characters  in  the  right  order.  If  characters  are 
transposed,  the  checksum  will  still  match  the  list- 
ing. Because  of  the  checksum  method  used,  do 
not  use  abbreviations,  such  as  ?  for  PRINT.  How- 
ever, the  Proofreader  does  catch  the  majority  of 
typing  errors  most  people  make.  The  IBM  Proof- 
reader is  even  pickier;  it  will  detect  errors  in 
spacing  and  transposition.  Also,  be  sure  you 
leave  Caps  Lock  on,  except  when  you  need  to 
enter  lowercase  characters. 

Special  Proofreader  Notes  For 
Commodore  Cassette  Users 

The  Proofreader  resides  in  the  cassette  buffer, 
which  is  used  during  tape  LOADs  and  SAVEs. 
Be  sure  to  press  RUN/STOP-RESTORE  before 
you  save  or  load  a  program,  to  get  the  Proof- 
reader out  of  the  way.  If  you  want  to  use  the 
Proofreader  with  tape,  run  the  Proofreader,  then 
enter  these  two  lines  exactly  as  shown,  pressing 
RETURN  after  each  one: 

AS- 'TROOFRE ADER.T":B$ ="{  10  SPACES } " 
:F0RX=1T04:A$=A$+B$:NEXT 

FORK = 886TO101 8:  A$ = A$ + CHR$(PEEK(X)) 
:NEXT:OPEN  1,1,1,A$:CL0SE1 

Then  press  RECORD  and  PLAY  on  a  blank  tape, 
and  a  special  version  of  the  Proofreader  will  be 
saved  to  tape.  Anytime  you  need  to  reload  the 
Proofreader  after  it  has  been  erased,  just  rewind 
the  tape,  type  OPENl:CLOSEl,  then  press  PLAY. 
When  READY  comes  back,  enter  SYS  886. 

IBM  Proofreader  Commands 

Since  the  IBM  Proofreader  replaces  the  comput- 
er's normal  BASIC  line  editor,  it  has  to  include 
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many  of  the  direct-mode  IBM  BASIC  commands. 
The  syntax  is  identical  to  IBM  BASIC.  Com- 
mands simulated  are  LIST,  LLIST,  NEW,  FILES, 
SAVE,  and  LOAD.  When  listing  your  program, 
press  any  key  (except  Ctrl-Break)  to  stop  the  list- 
ing. If  you  enter  NEW,  the  Proofreader  will 
prompt  you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC  and 
CHECK.  BASIC  exits  the  Proofreader  back  to 
IBM  BASIC,  leaving  the  Proofreader  in  memory. 
CHECK  works  just  like  LIST,  but  shows  the 
checksums  along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk.  Then  exit  the 
Proofreader  with  the  BASIC  command,  and  load 
the  program  into  the  normal  BASIC  environment 
(this  wiU  replace  the  Proofreader  in  memory). 
You  can  now  run  the  program,  but  you  may  want 
to  resave  it  to  disk.  This  will  shorten  it  on  disk 
and  make  it  load  faster,  but  it  can  no  longer  be 
edited  with  the  Proofreader.  If  you  want  to  con- 
vert a  program  to  Proofreader  format,  save  it  to 
disk  with  SAVE  "filename",A. 

VIC/64  Proofreader 

100  PRINT" fCLRj PLEASE  WAIT. . . " :FORI=886TO10 

13 : READA; CK=CK+A : POKEI , A : NEXT 
110  IF  CK017539  THEN  PRINT"  {DOWN} YOU  MADE 

{SPACE} AN  ERROR" ! PRINT "IN  DATA  STATEMEN 

TS. ":END 
120  SYS886:PRINT"[CLR] {2  DOWN} PROOFREADER  A 

CTIVATED. ":NEW 
886  DATA  173,036,003,201,150,208 
892  DATA  001,096,141,151,003,173 
898  DATA  037,003,141,152,003,169 
904  DATA  150,141,036,003,169,003 
910  DATA  141,037,003,169,000,133 
916  DATA  254,096,032,087,241,133 
922  DATA  251,134,252,132,253,008 
928  DATA  201,013,240,017,201,032 
934  DATA  240,005,024,101,254,133 
940  DATA  254,165,251,166,252,164 
946  DATA  253,040,096,169,013,032 
952  DATA  210,255,165,214,141,251 
958  DATA  003,206,251,003,169,000 
964  DATA  133,216,169,019,032,210 
970  DATA  255,169,018,032,210,255 
976  DATA  169,058,032,210,255,166 
982  DATA  254,169,000,133,254,172 
988  DATA  151,003,192,087,208,006 
994  DATA  032,205,189,076,235,003 
1000  DATA  032,205,221,169,032,032 
1006  DATA  210,255,032,210,255,173 
1012  DATA  251,003,133,214,076,173 
1018  DATA  003 

Atari  Proofreader 

100  GRAPHICS  0 

110  FOR  1=1536  TO  1700:READ  A:POKE  I 

,  A:  CK  =  CK*-A:  NEXT  I 
120  IF  CK<>19et72  THEN  ?  "Error  in  DA 

TA  Statements.    Check  Typing. ":E 

NO 
130  A=USR(1536) 
140  ?  :?  "Automatic  Proofreader  Now 

Activated- " 


150     END 

1536 

DATA 

104, 160, 0, 185, 26. 3 

1542 

DATA 

201, 69, 240, 7, 200, 200 

1548 

DATA 

192, 34, 208, 24  3, 96, 2  00 

1554 

DATA 

169, 74, 153, 26. 3, 200 

1560 

DATA 

169, 6, 153, 26,3, 162 

1566 

DATA 

0, 189, 0, 228, 157, 74 

1572 

DATA 

6, 232, 224, 16, 208, 245 

1578 

DATA 

169, 93, 141 , 78. 6, 169 

1584 

DATA 

6, 141,79, 6,24, 173 

1590 

DATA 

4, 228, 105, 1 , 141 , 95 

1596 

DATA 

6,  173,5, 228.  105.0 

16612 

DATA 

14  1, 96, 6, 169,0, 133 

1608 

DATA 

20  3, 96, 24  7, 2  38, 125, 24  1 

1614 

DATA 

93, 6, 244, 241, 1 15, 241 

1620 

DATA 

124, 24  1 , 76, 205, 2  38, 0 

1626 

DATA 

0,0,0,0,32,62 

1632 

DATA 

246,8,201 , 155,240, 13   , 

1638 

DATA 

201 , 32, 240, 7, 72, 24 

1644 

DATA 

101 , 203, 133, 203, 104, 40 

1650 

DATA 

96,72, 152, 72, 138,72 

1656 

DATA 

160,0, 169, 128, 145,88 

1662 

DATA 

200, 19  2, 40, 208, 249, 165 

166S 

DATA 

203, 74, 74, 74, 7  4, 24 

1674 

DATA 

105, 161 , 160, 3, 14  5, 88 

1680 

DATA 

165, 203, 41, 15. 24, 105 

1686 

DATA 

161, 200, 145, 38, 169. 0 

1692 

DATA 

133, 203, 104, 170. 104, 168 

1698 

DATA 

104,40,96 

IBM  Proofreader 

10  'Automatic  Proo-freader  Version  2.00  (L 
ines  270,510,515,517,620.630  changed  f 
rom  VI. 0) 

100  DIM  L« £500) ,LNUM( 500 >: COLOR  0,7, 7: KEY 

OFF; CLS: MAk=0: LNUM (0) =65536 ! 
110  ON  ERROR  GOTO  120: KEY  15. CHR* (4> +CHR* 

(70): ON  KEY < 15)  SOSUB  640:KEY  <15)  ON 

sGOTO  130 
120  RESUME  130 

130  DEF  SEG=S(H40:W=PEEK(S<H4A) 
140  ON  ERROR  GOTO  650:PRINT:  PRINT-Proo-f  re 

ader  Ready. " 

150  LINE  INPUT  L*:Y=CSRLIN-INT<LEN(L*)/W) 
-1: LOCATE  Y, 1 

160  DEF  SE6=0:POKE  1050,30;PDKE  1052, 34:P 

OKE  1054,0: POKE  1055, 79: POKE  1056,13: 

POKE  1057.2a:LINe  INPUT  L*:DEF  SEG; IF 
L4=""  THEN  150 
170  IF  LEFT«(Lt, 1)="  "  THEN  L*=MID« <L*,2) 

:GOTO  170 
180  IF  VAL(LEFT«(L*,2) )=0  AND  MID* (L*, 3,1 

>="  "  THEN  L*=MiD*<L*,4) 
190  LNUM=VAL<L«) : TEXT«=MID* (L*, LEN (STR* <L 

NU«))+1> 
200  IF  ASC<L*)>57  THEN  260  'no  line  numbe 

r,  there-fore  command 
210  IF  TEXT*=""  THEN  GOSUB  540: IF  LNUM=LN 

UM(P)  THEN  GOSUB  560; GOTO  150  ELSE  15 

0 
220  CKSUM=0:FOR  1=1  TO  LEN<L*) : CKSUM= (CKS 

UM+ASC(MID*CL«, I) ) «I)  AND  255:NEXT:LD 

GATE  Y,1:PRINT  CHR« <65+CKSUM/16) +CHR* 

(65+<CKSUM  AND  15)>+"  "+L* 
230  GOSUB  540: IF  LNUM<P)=LNUM  THEN  L«<P)= 

TEXT*: GOTO  150  'replace  line 
240  GOSUB  580; GOTO  150  'insert  the  line 
260  TEXT*="":FOR  1=1  TO  LEN<L*) : A=ASC (MID 

« (L*, 1) ) ; TEXT«=TEXT«+CHR« (A+32»  <A>96 

AND  A< 123) )s NEXT 


THEN  450 

FOR  OUTPUT  AS 


«1; 


270  DeLIMITER=INSTR(TEXT«, "  " ) : COMMAND«=T 

EXT«:ARG*=""; IF  DELIMITER  THEN  COMMAN 

D*=LEFT* (TEXT*, DELIMITER-1 ) s  ARG*=MID* 

(TEXT«,DELIMITER+1)  ELSE  DELIMITER=IN 

STR (TEXT*, CHR* (34) ) I  IF  DELIMITER  THEN 
COMMAND«=LEFT* (TEXT*, DELIMITER-1 >  :  AR 

G*=MIDt (TEXT*, DELIMITER) 
280  IF  CDMMAND*<>"LIST"  THEN  410 
290  OPEN  "scrn:"  FOR  OUTPUT  AS  #1 
300  IF  ARG*=""  THEN  FIRST=0:P=MAX-1; GOTO 

340 
310  DELIMITER=INSTR(AR6*, "-") : IF  DELIMITE 

R=0  THEN  LNUM=VAL(ARG4) ; GOSUB  540:FIR 

ST=P;GOTO  340 
320  FIRST=VAL (LEFT* (ARG«, DELIMITER) ) ;LAST 

=VAL<MID«(ARG*,DELIMITER+1) ) 
330  LNUM=FIRST:GOSUB  540;FIRST=P: LNUM=LAS 

T:GOSUB  540; IF  P=0  TH^N  P=MAX-1 
340  FOR  X=FIRST  TO  P; N*=MID* (STR* (LNUM (X) 

>,2)+"  " 
350  IF  CKFLA6=0  THEN  A«="":6OT0  370 
360  CKSUM=0:A*=N*+L*(X) ;FOR  1=1  TO  LEN (A* 

)  :CKSUM:=(CKSUM+ASC(MID*(A*,  I>  >«I)  AND 
255;NEXT:A*=CHR*(65+CKSUM/16)+CHR*(6 

5+(CKSUM  AND  15))+"  " 
370  PRINT  #1,A*+N*+L*(X) 
380  IF  INKEY*<5""  THEN  X=P 
390  NEXT  : CLOSE  #1:CKFLAG=0 
400  GOTO  130 
410  IF  COMMAND«="LLIST"  THEN  OPEN  "Iptl:" 

FOR  OUTPUT  AS  #1:GOTO  300 
420  IF  COMMAND*=" CHECK"  THEN  CKFLAG=1:G0T 

0  290 
430  IF  COMMAND* <>" SAVE" 
440  GOSUB  600: OPEN  ARG* 

AR6*=""!G0T0  300 
450  IF  COMMAND*<>"LOAD" 
460  GOSUB  600: OPEN  ARG* 

AX=0:P=0 
470  WHILE  NOT  E0F(1):LINE  INPUT  #1,L*:LNU 

M (P ) =VAL (L*) ; L* (P) =MID*  CL*, LEN (STR* (V 

AL(L*)  )  )+l)  :P=P-e-l:WEND 
480  MAX=P: CLOSE  *I:GOTO  130 
490  IF  COMMAND*="NEW"  THEN  INPUT  "Erase  p 

rogram  -  Are  you  sure" ;L*: IF  LEFT*(L* 

,l)="y"  OR  LEFT*(L«, 1>="Y"  THEN  MAX=0 

:BDTO  130: ELSE  130 
500  IF  C0MMAND4=" BASIC"  THEN  COLOR  7,0,0; 

ON  ERROR  GOTO  0:CLS:END 
510  IF  COMMAND*<>"FILES"  THEN  520 
515  IF  ARG«=""  THEN  ARG*="A: "  ELSE  SEL=1: 

GOSUB  600 
517  FILES  ARG*: GOTO  130 
520  PRINT"Synta>!  error":  GOTO  130 
540  P=0: WHILE  LNUM>LNUMCP)  AND  P<MAX:P=P+ 

1: WEND: RETURN 
560  MAX=MAX-1:F0R  X=P  TO  MAX : LNUM < X) =LNUM 

(X:l) :L*(X)=L*(X+1 ) : NEXTsRETURN 
580  MAX=MAX+1:F0R  X=MAX  TO  P+1  STEP  -1:LN 

UH  <  X ) =LNUM ( X- 1 ) : L* ( X ) =L* ( X- 1 ) ; NEXT ; L* 

(P) =TEXT* 5 LNUM (P> =LNUM: RETURN 
600  IF  LEFT*<ARG*,  1)-;>CHR*(34)  THEN  520  E 

LSE  ARG*=MID*(ARG*,2) 
610  IF  RIGHT* (ARG*. 1)=CHR* (34) 

LEFT* ( ARG* , LEN ( ARG* ) - 1) 
620  IF  SEL=0  AND  INSTR (ARG*, " . 

RG*=ARG*+".BAS" 
630  SEL=0: RETURN 
640  CLOSE  ttl:CKFLAG=0:PRINT"StDpped. 

URN  150 
650  PRINT  "Error  tt" ; ERR: RESUME  150 


THEN  490 
FOR  INPUT 


AS   «1:M 


THEN  ARG*= 


'>=0   THEN   A 


:RET 
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Apple  MLX 

Machine  Language  Entry  Program 


Tim  Victor.  Editorial  Programmer 


To  make  it  easier  to  enter  machine 
language  programs  into  your  computer 
without  typos,  COMPUTE!  is  introduc- 
ing its  MLX  entry  program  for  the 
Apple  11  series.  It's  our  best  MLX  yet. 
It  runs  on  the  U,  II +  ,  He,  and  lie,  and 
with  either  DOS  3.3  or  ProDOS. 


A  machine  language  (ML)  program 
is  usually  listed  as  a  long  series  of 
numbers.  It's  hard  to  keep  your 
place  and  even  harder  to  avoid  mak- 
ing mistakes  as  you  type  in  the  list- 
ing, since  an  incorrect  line  looks 
almost  identical  to  a  correct  one.  To 
make  error-free  entry  easier,  COM- 
PUTE! generally  lists  ML  programs 
for  Commodore  and  Atari  comput- 
ers in  a  format  designed  to  be  typed 
in  with  a  utility  called  "MLX."  The 
MLX  program  uses  a  checksum  sys- 
tem to  catch  typing  errors  almost  as 
soon  as  they  happen. 

This  month,  COMPUTE!  intro- 
duces MLX  for  the  Apple  II  series. 
Apple  MLX  checks  your  typing  on  a 
line-by-line  basis.  It  won't  let  you 
enter  invalid  characters  or  let  you 
continue  if  there's  a  mistake  in  a 
line.  It  won't  even  let  you  enter  a 
line  or  digit  out  of  sequence.  Best  of 
ail,  you  don't  have  to  know  any- 
thing about  machine  language  to 
enter  ML  programs  with  MLX.  Ap- 
ple MLX  makes  typing  ML  programs 
almost  foolproof. 

Using  Apple  MLX 

Type  in  and  save  some  copies  of 
Apple  MLX  on  disk  {you'll  want  to 
use  MLX  to  enter  future  ML  pro- 
grams in  COMPUTE!).  It  doesn't  mat- 
ter whether  you  type  it  in  on  a  disk 
formatted  for  DOS  3.3  or  ProDOS. 
Programs  entered  with  Apple  MLX, 
however,  must  be  saved  to  a  disk 
formatted  with  the  same  operating 
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system  as  Apple  MLX  itself. 

If  you  have  an  Apple  lie  or  lie, 
make  sure  that  the  key  marked 
CAPS  LOCK  is  in  the  down  posi- 
tion. Type  RUN.  You'll  be  asked  for 
the  starting  and  ending  addresses  of 
the  ML  program.  These  values  vary 
for  each  program,  so  they're  given  at 
the  beginning  of  the  ML  program 
listing  and  in  the  program's  accom- 
panying article.  Find  them  and  type 
them  in. 

The  next  thing  you'll  see  is  a 
menu  asking  you  to  select  a  func- 
tion. The  first  "is  {E)NTER  DATA.  If 
you're  just  starting  to  type  in  a  pro- 
gram, pick  this.  Press  the  E  key,  and 
the  program  asks  for  the  address 
where  you  want  to  begin  entering 
data.  Type  the  first  number  in  the 
first  line  of  the  program  listing  if 
you're  just  starting,  or  the  line  num- 
ber where  you  left  off  if  you've  al- 
ready typed  in  part  of  a  program.  Hit 
the  RETURN  key  and  begin  enter- 
ing the  data. 

Once  you're  in  Enter  mode,  Ap- 
ple MLX  prints  the  address  for  each 
program  line  for  you.  You  then  type 
in  all  nine  numbers  on  that  line, 
beginning  with  the  first  two-digit 
number  after  the  colon  (:).  Each  line 
represents  eight  bytes  and  a  check- 
sum. When  you  enter  a  line  and  hit 
RETURN,  Apple  MLX  recalculates 
the  checksum  from  the  eight  bytes 
and  the  address.  If  you  enter  more 
or  less  than  nine  numbers,  or  the 
checksum  doesn't  exactly  match, 
Apple  MLX  erases  the  line  you  just 
entered  and  prompts  you  again"  for 
the  same  line. 

invalid  Characters  Banned 

Apple  MLX  is  fairly  flexible  about 
how  you  type  in  the  numbers.  You 
can  put  extra  spaces  between  num- 
bers or  leave  the  spaces  out  entirely, 
compressing  a  line  into  18  key- 
presses. Be  careful  not  to  put  a  space 


between  two  digits  in  the  middle  of 
a  number.  Apple  MLX  will  read  two 
single-digit  numbers  instead  of  one 
two-digit  number  (F  6  means  F  and 
6,  not  F6). 

You  can't  enter  an  invalid  char- 
acter with  Apple  MLX.  Only  the  nu- 
merals 0-9  and  the  letters  A-F  can 
be  typed  in.  If  you  press  any  other 
key  (with  some  exceptions  noted  be- 
low), nothing  happens.  This  safe- 
guards against  entering  extraneous 
characters.  Even  better,  Apple  MLX 
checks  for  transposed  characters.  If 
you're  supposed  to  type  in  AO  and 
instead  enter  OA,  Apple  MLX  will 
catch  your  mistake. 

Apple  MLX  also  checks  to  make 
sure  you're  typing  in  the  right  line. 
The  address  (the  number  to  the  left 
of  the  colon)  is  part  of  the  checksum 
recalculation.  If  you  accidentally 
skip  a  line  and  try  to  enter  incorrect 
values,  Apple  MLX  won't  let  you 
continue.  Just  make  sure  you  enter 
the  correct  starting  address;  if  you 
don't,  you  won't  be  able  to  enter  any 
of  the  following  lines.  Apple  MLX 
will  stop  you. 

Editing  Features 

Apple  MLX  also  includes  some  edit- 
ing features.  The  left-  and  right- 
arrow  keys  allow  you  to  back  up  and 
go  forward  on  the  line  that  you  are 
entering,  so  you  can  retype  data. 
Pressing  the  CONTROL  (CTRL)  and 
D  keys  at  the  same  time  [delete] 
removes  the  character  under  the 
cursor,  shortening  the  line  by  one 
character.  Pressing  CTRL-I  (insert) 
puts  a  space  under  the  cursor  and 
shifts  the  rest  of  the  line  to  the  right, 
making  the  line  one  character  long- 
er. If  the  cursor  is  at  the  right  end  of 
the  line,  neither  CTRL-D  nor  CTRL-I 
has  any  effect. 

When  you've  entered  the  entire 
listing  (up  to  the  ending  address  that 
you  specified  earlier),  Apple  MLX 


automatically  leaves  Enter  mode 
and  redisplays  the  functions  menu. 
If  you  want  to  leave  Enter  mode 
before  then,  press  the  RETURN  key 
when  Apple  MLX  prompts  you  with 
a  new  line  address.  (For  instance, 
you  may  want  to  leave  Enter  mode 
to  enter  a  program  listing  in  more 
than  one  sitting;  see  below.) 

Display  Data 

The  second  menu  choice,  (D)I5- 
PLAY  DATA,  examines  memory 
and  shows  the  contents  in  the  same 
format  as  the  program  listing.  You 
can  use  it  to  check  your  work  or  to 
see  how  far  you've  gotten.  When 
you  press  D,  Apple  MLX  asks  you 
for  a  starting  address.  Type  in  the 
address  of  the  first  line  you  want  to 
see  and  hit  RETURN.  Apple  MLX 
displays  program  lines  until  you 
press  any  key  or  until  it  reaches  the 
end  of  the  program. 

Save  And  Load 

Two  more  menu  selections  let  you 
save  programs  on  disk  and  load 
them  back  into  the  computer.  These 
are  (S)AVE  FILE  and  (L)OAD  FILE. 
When  you  press  S  or  L,  Apple  MLX 
asks  you  for  the  filename.  The  first 
time  you  save  an  ML  program,  the 
name  you  assign  will  be  the  pro- 
gram's filename  on  the  disk.  If  you 
press  L  and  specify  a  filename  that 
doesn't  exist  on  the  disk,  you'll  see  a 
disk  error  message. 

If  you're  not  sure  why  a  disk 
error  has  occurred,  check  the  drive. 
Make  sure  there's  a  formatted  disk 
in  the  drive  and  that  it  was  format- 
ted by  the  same  operating  system 
you're  using  for  Apple  MLX  (Pro- 
DOS  or  DOS  3.3).  If  you're  trying  to 
save  a  file  and  see  an  error  message, 
the  disk  might  be  full.  Either  save 
the  file  on  another  disk  or  quit  Ap- 
ple MLX  (by  pressing  the  Q  key), 
delete  an  old  file  or  two,  then  run 
Apple  MLX  again.  Your  typing 
should  still  be  safe  in  memory. 

Apple  MLX:  Machine 
Language  Entry  Program 

100  N  =  9:  HOME  :  NORMftL  :  PRIN 
T  "APPLE  MLX";  POKE  34,2:  0 
NERR   GOTO  610 

110  VTAB  1:  HTAB  20:  PRINT  "STft 


RT  ADDRESS" 
A  =  0  THEN 
)!  GOTO  U0 
120  B  =  A 

130  yiAB  2:  HTAB  20: 
ADDRESS   "  ;  : 
S  >   =  A  DR 
INT   CHR*  (7) 


GOSUB  530:  IF 
PRINT   CHR«  (7 


PRINT  "END 
GDSUB  530:  IF 
A  =  0  THEN   PR 
:  GOTO  130 


140  E  =  A 

150  PRINT  :  PRINT  "CHOOSE: (E) NT 
ER  DATA";:  HTAB  22:  PRINT  " 
(D)l SPLAY  DATA":  HTAB  8:  PR 
INT  "(L)OAD  FILE  (S)ftVE  FI 
LE   (Q)UIT":  PRINT 

ld.0  GET  A*:  FOR  I  =  1  TO  5:  IF 
A«  <  >  MID*  ("EDLSQ", I, n  T 
HEN   NEXT  :  GOTO  160 

170  ON  I  GOTO  270,220,180,200: 
POKE  34,0:  END 

1B0  INPUT  "FILENAME:  ■';A«:  IF  A 
*  <   >  ■"■  THEN   PRINT   CHRt 
(4) ; "BLOAD"; A«; ",A"jS 
190  GOTO  150 

200  INPUT  "FILENAME:  ";A*:  IF  A 
«  <   >  ""  THEN   PRINT   CNR* 
(4};"BSAVE";fl«; " , A" ;S; " , L" 
'  E  -  S 
GOTO  150 

GOSUB  590:  IF  B  =  0  THEN  15 
0 

FOR  B  =  B  TD  E  STEP  S:L  =  4 
:A  =  B:  GOSUB  5B0:  PRINT  At 
;":  ";:L  =  2 

FDR  F  =  0  TO  7:V(F 
EEK  (B  +  F) :  NEXT  : 
60:V(9)  =  C 

FOR  F  =  1  TO  N:A  -  V(F) :  GO 
SUB  SB0:  PRINT  A«"  ";:  NEXT 
:  PRINT  :  IF   PEEK  (49152) 
<  128  THEN   NEXT 
260  POKE  49168,0:  GOTO  150 

270  GOSUB  590:  IF  B  =  0  THEN  15 

0 
280  FOR  B  =  B  TD  E  STEP  8 

290  HTAB  1:A  =■  B:  L  -  4:  GDSUB  3 
80:  PRINT  A*5"!  " ; :  CALL  64 
668 :A$  =  "":P  =  0:  GOSUB  33 
0:  IF  L  =  0  THEN  150 

300  GOSUB  470:  IF  F  <  >  N  THEN 
PRINT  CHR«  (7);:  GOTO  290 


210 
220 


230 


240 


250 


t-  1)  =  P 
GOSUB  5 


310 

320 

330 
340 

350 
360 


370 
380 


390 
400 


410 


420 
430 


440 
450 


460 
470 


F 
NE 


=  A«:0  =  P: 
0  THEN  L«  = 


IF  N  =  9  THEN  GOSUB  560:  IF 

C  <  >  V(9)  THEN  PRINT  CHR« 

(7>;:  GOTO  290 
FOR  F  =  1  TD  8:  POKE  B  + 
-  ],V(F):  NEXT  :  PRINT  : 
XT  :  GOTO  150 
IF  LEN  (A«>  =  33  THEN  A* 
D»:P  =  D:  PRINT  CHR»  (7) 
L  =  LEN  <A»> :0* 
L«  =  "":  IF  P  > 

LEFT*  (A»,P) 
R*  =  "":  IF  P  <  L  -  1  THEN 
Rt  =   RIGHT*  (A«,L  -  P  -  1) 
HTAB  7:  PRINT  L*; :  FLASH  : 
IF  P  <  L  THEN  PRINT  MID*  (A 
«,P  +  1,1);:  NORMAL  :  PRINT 

R»; 
PRINT  "  ";:  NORMAL 
K  =  PEEK  (49152):  IF  K  <  12 
B  THEN  380 

POKE  49168,0: K  =  K  -  1 28 
IF  K  =  13  THEN  HTAB  7:  PRIN 
T  ft*; "  "; :  RETURN 
IF  K  =  32  DR  K  >  47  AND  K  < 

58  OR  K  >  64  AND  K  <  71  TH 
EN  A*  =  L*  +  CNR*  (K)  +  R«: 
P  =  P  +  1 

IF  K  =  4  THEN  At  =  L« 
IF  K  =  9  THEN  A*  =  L* 

+   MID*  (A*,P  +  1,1) 


+  R« 
+  "  " 
+  R« 
(P  > 


IF  K  =  8  THEN  P  =  I 

0) 

IF  K  =  21  THEN  P  =  P  +  (P  < 

L) 
GOTO  330 

F  =  1:D  =  0:  FOR  P  =  1  TO  L 
EN  CA«):C*  =  MID*  (A*,P,1): 

IF  F  >  N  AND  C*  <  >  "  "  TH 
EN   RETURN 


480 

IF  C*  <  >  "  "  THEN   tSDSUB  5 

20:V(F)  -  J  +  16  »  (D  =  1) 

«  V(F) :D  =  D  +  1 

490 

IF  D  >  0  AND  C*  =  ■'  "  DR  D 

=  2  THEN  D  =  0:F  =  F  +  1 

500 

NEXT  :  IF  D  =  0  THEN  F  =  F 

-  1 

RETURN 

510 

520 

J  =  ASC  (C»>iJ  =  J  -  48  -  7 

530 
540 

550 
560 

570 
5B0 

590 

600 
610 


t  (J  >  64) !  RETURN 
A  =  0:  INPUT  At: A*  = 
(A4,4) :     IF  LEN  (A*)  = 
N  RETURN 
FDR  P  =  1  TO  LEN  (ft*) 


LEFT* 
0  THE 


iC*  - 


MID*  (A»,P, 1) :  IF  Ct  <  "0" 
OR  C*  >  "9"  AND  C«  <  "A"  OR 

C4  >  "Z"  THEN  A  =  0!  RETUR 
N 

GDSUB  520: A  =  A  t  16  +  J :  N 
EXT  :  RETURN 

C  =  INT  (B  /  256) !C  =  B  -  2 
54  t  C  -  255  »  (C  >  127) sC 
»  C  -  255  «  (C  >  255) 
FOR  F=1T0B:C-C»2- 
255  t  (C  >  127)  +  V(F):C  ■= 
C  -  255  *  (C  >  255) t  NEXT  : 

RETURN 
I  -  FRE  (0):A*  =  ■"■:  FDR  I 
=  1  TO  L:T  "   INT  (A  /  16) ! 
A*  -   MID*  ("0 123456789 ABCD 
EF",A  -16«T+l,l)+A*i 
A  =  T:  NEXT  :  RETURN 
PRINT  "FROM  ADDRESS  ";:  60S 
UB  530:  IFS>ADRE<AO 
R  A  =  0  THEN  B  =  0:  RETURN 
B  =  S  +  8  *  INT  ( (ft  -  S)  / 
8) :  RETURN 
PRINT  "DISK  ERROR":  GOTO  15 

0  at 
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SpeedScript  3.0 

All  Machine  Language  Word  Processor  For  Apple 


Charles  Brannon,  Program  Editor 
Apple  Adoptotion  By  Kevin  Martin,  Editorial  Progrommer 


COMPUTE!  concludes  its  SpeedScript 
3.0  series  this  month  with  a  version 
for  Apple  ll-series  computers  with 
DOS  33  and  at  least  48K  RAM.  Origi- 
nally written  for  the  Commodore  64 
and  VIC-20,  SpeedScript  lias  also 
been  adapted  for  Atari  computers 
fcoMPUTE!,  May  1985)  and  has  become 
extrejnely  popular.  It  compares  favor- 
ably loith  commercial  programs  and 
has  some  features  never  seen  before  in 
an  Apple  word  processor. 


SpeedScript  3.0,  though  compact  in 
size  {5.5K),  has  most  of  the  functions 
you  expect  in  a  full-featured  word 
processor.  SpeedScript  is  also  very 
easy  to  learn  and  use.  You  type  in 
everything  first;  preview  and  make 
corrections  on  the  screen;  insert  and 
delete  words,  sentences,  and  para- 
graphs; then  print  out  an  error-free 
draft,  letting  SpeedScript  take  care  of 
things  like  margins,  centering,  head- 
ers, and  footers. 


The  Apple  version  of  SpeedScript 
3.0,  and  all  other  Apple  programs  in 
this  issue,  may  be  ordered  on  disk 
directly  from  COMPUTE!  Publica- 
tions. Call  TOLL  FREE  1-800-334- 
0868  (in  NC  1-919-275-9809)  to 
charge  your  order  8:30  a.m. -7:00 
p.m.  Eastern  Time,  Monday 
through  Friday.  Or  send  check  or 
money  order  ($12.95  plus  $2.00 
shipping  and  handling)  to: 

COMPUTE!  Publications,  Inc. 
P.O.  Box  5058 
Greensboro,  NC  27403  USA 

Readers  outside  the  United  States 
and  Canada  add  $3.00  shipping  and 
handling.  All  orders  must  be  pre- 
paid in  US  funds. 


Special  Typing  Instructions 

Apple  SpeedScript  is  the  longest 
Apple  machine  language  program 
we've  ever  published,  but  COM- 
PUTEi's  new  "Apple  MLX"  entry  sys- 
tem helps  you  type  it  right  the  first 
time,  MLX  can  detect  most  typing 
errors  as  they  happen.  (See  the  Ap- 
ple MLX  article  elsewhere  in  this 
issue.)  MLX  also  lets  you  type  Speed- 
Script  in  more  than  one  sitting.  Al- 
though the  program  listing  is 
lengthy,  we  guarantee  the  effort  will 
be  worthwhile.  If  you  prefer,  you 
can  order  Apple  SpeedScript  3.0  (and 
all  other  Apple  programs  in  this 
issue)  on  disk  directly  from  COM- 
PUTE! Publications  at  a  nominal 
cost  (see  box). 

To  begin  entering  the  data  for 
SpeedScript,  boot  up  your  Apple 
with  a  DOS  3.3  startup  disk  in  the 
drive.  As  the  MLX  article  states,  pro- 
grams entered  with  MLX  must  be 
saved  to  a  disk  with  the  same  oper- 
ating system  format  as  the  disk  from 
which  MLX  was  loaded.  Since  this 
version  of  SpeedScript  works  only 
with  DOS  3.3,  you  must  load  Apple 
MLX  from  a  DOS  3.3  disk.  If  you 
have  a  He  or  lie  that  came  with  the 
ProDOS  operating  system,  you 
must  obtain  a  copy  of  DOS  3.3 
before  entering  SpeedScript. 

Because  the  machine  language 
data  for  SpeedScript  resides  in  the 
same  area  of  memory  where  BASIC 
programs  are  normally  loaded,  it's 
necessary  in  this  case  to  reconfigure 
memory  before  loading  MLX  to  en- 
ter SpeedScript.  Otherwise,  the 
SpeedScript  data  you  enter  with  MLX 
will  overwrite  the  MLX  program  it- 
self as  you  type,  To  reconfigure 
memory,  type  the  following  line  in 
direct  mode  (no  line  number)  and 


hit  RETURN: 

POKE  104,32:  POKE  8192,0:  NEW 

You  must  alzvays  enter  this  line 
before  loading  MLX  to  enter  Speed- 
Script  data.  It  is,  however,  not  neces- 
sary to  enter  this  line  before  loading 
the  completed  SpeedScript  program. 
Now  load  and  run  Apple  MLX. 
Answer  the  first  two  questions  that 
MLX  asks  like  this: 

STARTING  ADDRESS?  0800 
ENDING  ADDRESS?  1E45 

An  options  menu  appears  next. 
Press  E  to  Enter  the  program.  Now 
type  the  address  at  which  you'd  like 
to  start  typing.  If  you're  just  begin- 
ning to  type  the  listing,  you'd  enter 
0800.  The  screen  then  shows  the 
first  prompt,  the  number  0800  fol- 
lowed by  a  colon  (:).  Type  in  each 
two-digit  number  shown  in  the 
SpeedScript  listing  (some  of  the  dig- 
its are  letters,  because  the  numbers 
are  in  hexadecimal).  You  don't  need 
to  type  the  spaces  shown  in  the 
listing,  but  you  can  for  the  sake  of 
readability.  MLX  does  not  let  you 
type  illegal  characters. 

The  last  number  you  enter  in 
each  line  is  a  checksum.  If  you  type 
the  line  correctly,  the  checksum  cal- 
culated by  MLX  should  match  the 
checksum  number  you  typed  in.  If  it 
doesn't  match,  MLX  makes  you  re- 
type the  line.  MLX  is  not  foolproof, 
though.  It's  quite  rare,  but  it's  possi- 
ble that  an  error  in  one  number 
could  be  offset  by  an  error  in  anoth- 
er. MLX  will  help  catch  your  errors, 
but  you  still  must  be  careful. 

Typing  In  Multiple  Sittings 

If  you  want  to  stop  typing  the  listing 
at  some  point  and  pick  up  later, 
press  RETURN  at  the  address 
prompt  without   typing  anything. 
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Apple  SpeedScript  3.0  Keyboard  Map 


Use  [CTRLI  or   fcontrol|   with  most  commands 
Apple  lie  Keyboard  Shown.  Apple  lle,ll+  keyboard  similar 
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Write  down  the  address  number  you 
stopped  at,  The  options  menu  reap- 
pears, and  you  can  save  your  typing 
at  this  point.  To  continue  entering 
data  the  next  time,  boot  your  sys- 
tem, enter  the  direct-mode  line  giv- 
en above  to  configure  memory,  and 
load  MLX.  Answer  the  STARTING 
ADDRESS?  and  ENDING  AD- 
DRESS? questions  with  the  same 
values  you  used  the  first  time,  0800 
and  1E45.  Then  select  Load  from  the 
options  menu,  then  press  E  to  enter 
data.  Give  MLX  the  address  number 
you  previously  stopped  at.  Now 
continue  typing  as  before. 

When    you    finish    all    typing, 
MLX  returns   you   to   the   options 


menu,  where  you  can  save  the  fin- 
ished program. 

MLX  has  now  created  a  binary 
file  on  disk.  To  run  it,  reboot  the 
machine  to  clear  out  memory,  then 
from  BASIC  type  BRUN  filename, 
where  filename  is  the  name  you 
specified  when  saving  SpeedScript 
on  disk  with  MLX.  SpeedScript  auto- 
matically loads  and  runs.  If  you  pre- 
fer, you  can  write  a  short  program: 

10  PRINT  CHR$(4);"BRUN  filename" 

and  save  it  as  the  HELLO  file  on  the 
disk  (INIT  HELLO  to  format  and  set 
up  a  blank  disk).  This  makes  Speed- 
Script  load  and  run  automatically 
when  you  boot  up. 


Do  You  Have  Lowercase? 

When  you  BRUN  SpeedScript,  you'll 
first  be  asked,  LOWERCASE? 
[Y/N],  If  you  are  running  Speed- 
Script  on  an  Apple  lie  or  lie,  or  have 
a  lowercase  character  generator  in 
your  Apple  11  +  ,  press  Y  for  Yes. 
Otherwise,  press  N.  This  adjusts 
SpeedScript  for  your  machine. 

After  you've  answered  the 
prompt,  you'll  see  a  blank  40-col- 
umn  screen  with  a  blinking  under- 
line cursor.  The  first  line  on  the 
screen  is  in  inverse  video,  white 
with  black  letters.  SpeedScript  pre- 
sents all  messages  on  this  command 
line.  The  remaining  23  lines  of  the 
screen  are  used  to  enter,  edit,  and 
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display  your  document.  You  cannot 
enter  text  in  80  columns,  although 
you  can  print  the  document  to  the 
screen  in  80  columns,  if  you  have 
the  appropriate  hardware. 

The  cursor  shows  where  the 
next  character  you  type  will  appear 
on  the  screen.  SpeedScript  lets  you 
move  the  cursor  anywhere  within 
your  document,  making  it  easy  to 
find  and  correct  errors. 

Entering  Text 

To  begin  using  SpeedScript,  just  start 
typing.  If  you  have  an  Apple  11  + 
without  a  lowercase  character  gen- 
erator and  SHIFT  key  modification, 
you'll  need  to  follow  a  special  proce- 
dure because  the  Apple  II  +  SHIFT 
key  does  not  work  with  alphabetic 
characters.  (Lowercase  adapters  and 
SHIFT  key  modifications  are  avail- 
able for  the  Apple  II +  ;  see  your 
Apple  dealer.) 

For  lowercase  text,  just  type 
normally.  On  an  Apple  11+  without 
a  lowercase  adapter,  lowercase  text 
appears  on  the  screen  as  uppercase. 
When  you  need  to  specify  an  upper- 
case letter,  press  the  ESC  key  before 
typing  that  letter.  An  uppercase  let- 
ter appears  on  the  screen  in  inverse 
video  (with  the  colors  switched). 
The  next  character  you  type  will 
appear  as  a  normal  uppercase  char- 
acter, representing  lowercase. 

This  is  the  convention  used  by 
most  Apple  word  processors  when 
lowercase  is  not  available.  While 
this  may  seem  awkward,  it  over- 
comes the  uppercase-onty  limitation 
of  the  Apple  11+  and  becomes  sec- 
ond nature  after  a  while.  For  ex- 
ample, to  enter: 

Who  won  the  World  Series? 

you'd  type: 

ESC  WHO  WON  THE  ESC  WORLD 
ESC  SERIES? 

which  appears  onscreen  as: 

Who  WON  THE  HORLD  lERIES? 

With  an  Apple  11+  with  the 
SHIFT  key  modification  or  an  Apple 
Ile/Ilc,  you  type  as  you  would  on  a 
typewriter,  holding  down  the  SHIFT 
key  while  typing  the  uppercase  let- 
ter. Be  sure  to  disengage  the  CAPS 
LOCK  key  if  you  want  to  type 
lowercase. 

When  the  cursor  reaches  the 
right  edge  of  the  screen,  it  automati- 
cally jumps  to  the  beginning  of  the 


next  line,  just  as  in  BASIC.  But 
unlike  BASIC,  SpeedScript  never 
splits  words  at  the  right  edge  of  the 
screen.  If  a  word  you're  typing 
won't  fit  at  the  end  of  one  line,  it's 
instantly  moved  to  the  next  line. 
This  feature,  called  ivord-wrap  or 
parsing,  also  helps  make  your  text 
more  readable. 

Scrolling  And  Screen 
Formatting 

When  you  finish  typing  on  the  last 
screen  line,  SpeedScript  automatical- 
ly scrolls  the  text  upward  to  make 
room  for  a  new  line  at  the  bottom. 
Imagine  the  screen  as  a  23-Iine  win- 
dow on  a  long,  continuous  docu- 
ment. There's  room  in  memory  for 
27904  characters  on  a  48K  machine, 
or  about  10-15  pages  of  text.  (Un- 
fortunately, SpeedScript  3.0  cannot 
make  use  of  the  extra  memory  avail- 
able with  64K  or  128K.)  To  check  at 
any  time  how  much  space  is  avail- 
able, press  CTRL-A  (hold  down  the 
CTRL  key  while  pressing  the  A  key). 
The  number  appearing  in  the  com- 
mand line  indicates  how  much 
available  room  remains  for  charac- 
ters of  text. 

If  you're  used  to  a  typewriter, 
you'll  have  to  unlearn  some  habits  if 
this  is  your  first  experience  with 
word  processing.  Since  the  screen  is 
only  40  columns  wide,  and  most 
printers  have  80-column  carriages,  it 
doesn't  make  sense  to  press  RE- 
TURN at  the  end  of  each  line  as  you 
do  on  a  typewriter.  SpeedScript's 
word-wrap  takes  care  of  this  auto- 
matically. Press  RETURN  only 
when  you  want  to  force  a  carriage 
return  to  end  a  paragraph  or  limit 
the  length  of  a  line.  A  return-mark 
appears  on  the  screen  as  an  inverse 
less-than  sign  (<). 

Using  The  Keyboard 

Most  features  are  accessed  with  con- 
trol-key commands — you  hold 
down  CTRL  while  pressing  another 
key.  In  this  article,  control-key  com- 
mands are  abbreviated  CTRL-a: 
(where  x  is  the  key  you  press  in 
combination  with  CTRL).  An  ex- 
ample is  the  CTRL-A  mentioned 
above  to  check  on  available  memo- 
ry. CTRL-E  means  hold  down  CTRL 
and  press  E. 

Some  commands  have  special 
options.  On  the  Apple  II +  ,  you'll 
sometimes  need  to  press  ESC  before 
the  CTRL  key,  as  in  ESC-CTRL-E. 


You  first  press  ESC,  then  release  it 
and  press  CTRL  and  E  together.  If 
your  Apple  1!+  has  the  SHIFT  key 
modification,  you  can  press  SHIFT 
instead  of  ESC,  but  you  must  press  it 
simultaneously  with  CTRL  and  the 
command  key. 

On  the  Apple  lie  and  lie,  you 
hold  down  the  Open  Apple  key  (the 
key  with  a  hollow  Apple  symbol) 
while  pressing  the  CTRL  key  combi- 
nation. This  is  represented  in  this 
article  as  OpAp-CTRL-E.  Other 
keys  are  referenced  by  name  or 
function,  such  as  DELETE  for  the 
backspace  key,  carat  for  the  carat  (") 
symbol  (SHIFT-N  on  the  Apple  11  + 
or  SHIFT-6  on  the  Apple  lle/IIc),  or 
cursor-left  for  the  <-  key.  See  the 
figure  for  a  complete  quick-refer- 
ence chart  of  all  keyboard 
commands. 

The  Apple  11+  keyboard  does 
not  support  all  the  keys  used  by 
SpeedScript,  such  as  cursor-up  and 
cursor-down  (T  i),  but  these  com- 
mands can  still  be  accessed  with 
CTRL-key  combinations.  Because 
SpeedScript  uses  almost  every  key, 
not  all  combinations  are  especially 
mnemonic.  Most  keys,  though, 
stand  for  the  name  of  the  function 
they  perform. 

Some  keys  let  you  move  the 
cursor  to  different  places  in  the  doc- 
ument to  make  corrections  or  scroll 
text  into  view.  You  can  move  the 
cursor  by  character,  word,  sentence, 
or  paragraph.  Here's  how  to  control 
the  cursor: 

•  The  cursor-left/right  keys 
(<-/-')  move  the  cursor  a  single  space 
in  either  direction.  By  preceding  this 
key  with  ESC  on  the  Apple  II +  ,  or 
by  holding  down  the  Open  Apple 
key  while  pressing  the  key  on  the 
Apple  Ile/IIc,  you  can  move  the  cur- 
sor to  the  beginning  of  the  next  (-) 
or  previous  {'-)  word. 

•  The  cursor-up/down  keys 
(T/i  on  the  Ile/IIc,  CTRL-J/CTRL-K 
on  the  11+)  move  the  cursor  to  the 
beginning  of  either  the  previous  or 
next  sentence.  On  the  Ile/llc,  hold 
down  the  Open  Apple  key  as  you 
press  the  arrow  to  move  to  the  be- 
ginning of  the  next  (i)  or  previous 
(T)  paragraph.  On  the  Apple  II +, 
press  CTRL-K  to  move  the  cursor  to 
the  beginning  of  the  next  sentence, 
and  press  CTRL-J  to  move  the  cursor 
to  the  beginning  of  the  previous  sen- 
tence. Press  ESC-CTRL-K  to  move 
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the  cursor  to  the  beginning  of  the 
next  paragraph,  or  ESC-CTRL-J  to 
move  the  cursor  to  the  beginning  of 
the  previous  paragraph.  (A  para- 
graph is  defined  as  any  sequence  of 
characters  ending  in  a  return-mark,) 

■  Pressing  CTRL-@  (CTRL- 
SHIFT-2  on  the  Ile/IIc,  CTRL- 
SHIFT-P  on  the  I1  +  ),  puts  the 
cursor  at  the  top  of  the  screen.  If  the 
cursor  is  already  at  the  top  of  the 
screen,  CTRL-@  moves  the  cursor 
to  the  top  of  the  document.  So  to 
quickly  move  to  the  beginning  of  the 
document,  press  CTRL-@  twice. 

•  CTRL-Z  moves  the  cursor  to 
the  end  of  the  document,  scrolling  if 
necessary.  It's  easy  to  remember 
since  Z  is  at  the  end  of  the  alphabet. 

Making  Corrections 

Sometimes  you'll  have  to  insert 
some  characters  to  make  a  correc- 
tion. Use  CTRL-O  to  open  up  a  sin- 
gle space.  Merely  position  the  cursor 
at  the  point  where  you  want  to  in- 
sert a  space,  and  press  CTRL-O. 

It  can  be  tedious  to  use  CTRL-O 
to  open  up  enough  space  for  a  whole 
sentence  or  paragraph.  For  conven- 
ience, SpeedScript  has  an  insert 
mode  that  automatically  inserts 
space  for  each  character  you  type.  In 
this  mode,  you  can't  type  over  char- 
acters; everything  is  inserted  at  the 
cursor  position.  To  enter  insert 
mode,  press  CTRL-I.  To  cancel  in- 
sert mode,  press  CTRL-I  again.  To 
let  you  know  you're  in  insert  mode, 
the  cursor  changes  from  a  blinking 
underline  to  a  blinking  inverse  un- 
derline (which  looks  like  a  solid 
square).  The  cursor  changes  back  to 
a  blinking  underline  when  you  exit 
insert  mode.  Because  of  keyboard 
redundancy,  the  TAB  key  on  the 
Apple  Ile/IIc  works  just  like  CTRL-I. 

Insert  mode  is  the  easiest  way 
to  insert  text,  but  it  can  become  too 
slow  when  inserting  near  the  top  of 
a  very  long  document  because  it 
must  move  all  the  text  following  the 
cursor  position.  So  SpeedScript  has 
even  more  ways  to  insert  blocks  of 
text. 

One  way  is  to  use  CTRL-T 
{tab).  It  is  programmed  in  Speed- 
Script  to  act  as  a  five-space  margin 
indent.  To  end  a  paragraph  and  start 
another,  press  RETURN  twice  and 
press  CTRL-T,  A  shortcut  for  this  is 
CTRL-]  on  the  Apple  Ile/IIc  and 
CTRL-SHIFT-M  on  the  Apple  II +  ; 
these  keystrokes  automatically  in- 


sert two  return-marks  and  indent 
the  margin.  CTRL-T  always  inserts; 
you  don't  need  to  be  in  insert  mode. 
You  can  also  use  CTRL-T  to  open  up 
more  space  than  CTRL-O.  (You  can- 
not set  or  clear  tab  stops  in  Speed- 
Script  as  you  can  with  some  word 
processors.)  No  matter  how  much 
space  you  want  to  insert,  each  inser- 
tion takes  the  same  amount  of  time. 
So  CTRL-T  can  insert  five  spaces 
five  times  faster  than  pressing 
CTRL-O  five  times. 

There's  an  even  better  way, 
though.  Press  CTRL-Q  to  quickly 
insert  255  spaces  (it  does  not  insert  a 
line;  use  RETURN  for  that).  You  can 
press  it  several  times  to  open  up  as 
much  space  as  you  need.  And 
CTRL-Q  is  quick  indeed.  It  inserts 
255  spaces  as  fast  as  CTRL-O  opens 
up  one  space.  Now  just  type  the  text 
you  wanted  to  insert  over  the  blank 
space.  (You  don't  want  to  be  in 
CTRL-I  insert  mode  when  you  use 
this  trick;  that  would  defeat  its 
purpose.) 

Since  DELETE  (backspace)  is 
also  slow  when  working  with  large 
documents  (it,  too,  must  move  all 
text  following  the  cursor),  you  may 
prefer  to  use  the  cursor-left  key  to 
backspace  when  using  this  method. 

After  you're  done  inserting, 
there  may  be  some  inserted  spaces 
left  over  that  you  didn't  use.  Just 
press  ESC-CTRL-Q  on  the  II -I-  or 
OpAp-CTRL-Q  on  the  Ile/IIc.  This 
instantly  deletes  all  extra  spaces  be- 
tween the  cursor  and  the  start  of 
following  text.  It's  also  useful  when- 
ever you  need  to  delete  a  block  of 
spaces  for  some  reason. 

Erasing  Text 

To  erase  the  character  on  which  the 
cursor  is  sitting,  press  CTRL-G  (to 
grab  the  character).  The  character 
highlighted  by  the  cursor  is  re- 
moved, and  all  following  text  is 
moved  toward  the  cursor  to  fill  the 
empty  space. 

Press  CTRL-B  (backspace)  on 
the  ll-l-  or  the  DELETE  key  on  the 
lle/ilc  to  delete  the  character  to  the 
left  of  the  cursor.  All  the  following 
text  is  moved  with  the  cursor  to  fill 
the  empty  space. 

These  keys  are  fine  for  minor 
deletions,  but  it  could  take  all  day  to 
delete  a  whole  paragraph  this  way. 
So  SpeedScript  has  two  commands 
that  can  delete  an  entire  word,  sen- 
tence,  or  paragraph   at   a   time. 


CTRL-E  erases  text  after  (to  the 
right  of)  the  cursor  position  (and  can 
also  erase  all  text),  and  CTRL-D 
deletes  text  behind  (to  the  left  of)  the 
cursor. 

To  use  the  CTRL-E  erase  mode, 
first  place  the  cursor  at  the  begin- 
ning of  the  word,  sentence,  or  para- 
graph you  want  to  erase.  Then  press 
CTRL-E.  The  command  line  shows 
the  message  "ERASE  (S,W,P,A): 
RETURN  TO  EXIT."  Press  S  to  erase 
a  sentence,  W  for  a  word,  or  P  for  a 
paragraph.  Each  time  you  press  one 
of  these  letters,  the  text  is  quickly 
erased.  You  can  keep  pressing  S,  W, 
or  P  until  you've  erased  all  the  text 
you  wish.  Then  press  RETURN  to 
exit  the  erase  mode. 

You  also  use  CTRL-E  to  erase 
all  text  from  memory  when  you 
want  to  start  a  new  document.  To 
erase  all  text,  press  CTRL-E,  then 
press  the  A  (ail)  key.  A  prompt  ap- 
pears: ERASE  ALL  TEXT:  ARE  YOU 
SURE  (Y/N).  Press  Y  to  perform  the 
irreversible  deed.  You  cannot  recov- 
er any  text  erased  this  way.  Press  N 
or  any  other  key  to  cancel  this 
function. 

The  CTRL-D  delete  mode 
works  similar  to  CTRL-E,  but  de- 
letes only  one  word,  sentence,  or 
paragraph  at  a  time.  First,  place  the 
cursor  after  the  word,  sentence,  or 
paragraph  you  want  to  delete.  Then 
press  CTRL-D.  Next,  press  S,  W,  or 
P  for  sentence,  word,  or  paragraph. 
The  text  is  immediately  deleted  and 
you  return  to  editing.  You  don't 
need  to  press  RETURN  to  exit  the 
CTRL-D  delete  mode  unless  you 
pressed  this  key  by  mistake.  (In  gen- 
eral, you  can  escape  from  any  function 
in  SpeedScript  by  simply  pressing  RE- 
TURN.) CTRL-D  is  most  convenient 
when  the  cursor  is  already  past  what 
you've  been  typing, 

Tlie  Text  Buffer 

When  you  erase  or  delete  with 
CTRL-E  and  CTRL-D,  the  text  isn't 
lost  forever  (unless  you've  per- 
formed an  Erase  AH).  SpeedScript  re- 
members what  you've  removed  by 
storing  deletions  in  a  separate  area 
of  memory  called  a  buffer.  The  buff- 
er is  a  failsafe  device.  If  you  erase 
too  much,  or  change  your  mind,  just 
press  CTRL-c«rflf  (CTRL-SHIFT-6 
on  the  Ile/IIc,  CTRL-SHIFT-N  on 
the  II -H)  to  restore  the  deletion. 
However,  be  aware  that  SpeedScript 
remembers  only  the  last  erase  or 
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delete  you  performed.  It's  not  to 
hard  to  remember  this  command, 
since  the  carat  is  used  in  paper-and- 
pencil  editing  to  signify  an  insertion. 
Be  sure  you  don't  press  CTRL-N 
without  SHIFT,  since  CTRL-N  is  the 
command  to  clear  out  (null)  the 
buffer. 

Another,  more  powerful,  use  of 
this  buffer  is  to  move  or  copy  sec- 
tions of  text.  To  move  some  text 
from  one  location  in  your  document 
to  another,  first  erase  or  delete  it 
with  CTRL-E  or  CTRL-D.  Then 
move  the  cursor  to  where  you  want 
the  text  to  appear  and  press  CTRL- 
caraf.  CTRL-carat  instantly  inserts 
the  contents  of  the  buffer  at  the 
cursor  position.  If  you  want  to  copy 
some  text  from  one  part  of  your 
document  to  another,  just  erase  or 
delete  it  with  CTRL-E  or  CTRL-D, 
restore  it  at  the  original  position 
with  CTRL-carat,  then  move  the 
cursor  elsewhere  and  press  CTRL- 
carat  to  restore  it  again.  You  can 
retrieve  the  buffer  with  CTRL-csra; 
as  many  times  as  you  like.  If  there  is 
no  room  left  in  memory  for  inserting 
the  buffer,  you'll  see  the  message 
NO  ROOM. 

Important:  The  CTRL-E  erase 
mode  lets  you  erase  up  to  the  maxi- 
mum size  of  the  buffer  (2K),  and 
CTRL-E  also  removes  the  previous 
contents  of  the  buffer.  The  buffer  is 
also  erased  with  the  ERASE  ALL 
option  of  CTRL-E.  Keep  this  in  mind 
if  there's  something  in  the  buffer 
you'd  rather  keep.  If  you  don't  want 
the  buffer  to  be  erased,  hold  down 
the  Open  Apple  key  (or  precede 
with  ESC  on  the  11+)  when  you 
press  CTRL-E.  This  preserves  the 
buffer  contents  and  adds  newly 
erased  text  to  the  buffer. 

If  you  ever  need  to  erase  the 
contents  of  the  buffer,  press  CTRL-N 
{null  buffer). 

Search  And  Replace 

SpeedScript  has  a  Find  command 
that  searches  through  your  docu- 
ment to  find  a  selected  word  or 
phrase.  A  Replace  option  lets  you 
automatically  change  one  word  to 
another  throughout  the  document, 
ESC-CTRL-F  or  OpAp-CTRL- 
F  {find)  lets  you  define  a  search 
phrase,  ESC-CTRL-R  or  OpAp- 
CTRL-R  (replace)  lets  you  define  a 
replace  phrase,  and  CTRL-Y  is  for 
automatically  searching  and 
replacing. 
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Searching  is  a  two-step  process. 
First  you  need  to  tell  SpeedScript 
what  to  search  for,  then  you  trigger 
the  actual  search.  Hold  down  Open 
Apple  and  press  CTRL-F  (on  the 
Apple  n  +  ,  press  ESC,  then  CTRL-F). 
The  command  line  prompts  FIND:. 
Type  in  what  you'd  like  to  search 
for,  the  search  phrase.  If  you  press 
RETURN  alone  without  typing  any- 
thing,  the  Find  command  is 
canceled. 

When  you  are  ready  to  search, 
press  CTRL-F.  SpeedScript  looks  for 
the  next  occurrence  of  the  search 
phrase  starting  from  the  current  cur- 
sor position.  If  you  want  to  hunt 
through  the  entire  document,  press 
CTRL-@  twice  to  move  the  cursor  to 
the  very  top  before  beginning  the 
search.  Each  time  you  press  CTRL-F, 
SpeedScript  looks  for  the  next  occur- 
rence of  the  search  phrase  and 
places  the  cursor  at  the  start  of  the 
phrase.  If  the  search  fails,  you'll  see 
the  message  NOT  FOUND. 

CTRL-R  works  together  with 
CTRL-F.  After  you've  specified  the 
search  phrase  with  OpAp-CTRL-F 
or  ESC-CTRL-F,  press  OpAp-CTRL- 
R  or  ESC-CTRL-R  to  select  the  re- 
place phrase.  (You  can  press 
RETURN  alone  at  the  REPLACE 
WITH:  prompt  to  select  a  null  re- 
place phrase.  When  you  hunt  and 
replace,  this  deletes  the  located 
phrase.)  To  manually  search  and  re- 
place, start  by  pressing  CTRL-F. 
After  SpeedScript  finds  the  search 
phrase,  press  CTRL-R  if  you  want  to 
replace  the  phrase.  If  you  don't  want 
to  replace  the  phrase,  don't  press 
CTRL-R.  You  are  not  in  a  special 
search  and  replace  mode.  You're 
free  to  continue  writing  at  any  time. 

CTRL-Y  links  CTRL-F  and 
CTRL-R  together  {think  of  the  two 
branches  of  the  Y  linking  together 
Find  and  Replace).  It  first  asks 
FIND:,  then  REPLACE:,  then  auto- 
matically searches  and  replaces 
throughout  the  document  starting  at 
the  cursor  position. 

There  are  a  few  things  to  watch 
out  for  when  using  search  and  re- 
place. First,  realize  that  if  you  search 
for  "the,"  SpeedScript  finds  the  em- 
bedded "the"  in  words  like  "there- 
fore" and  "heathen."  If  you 
changed  all  occurrences  of  "the"  to 
"cow,"  these  words  would  become 
"cowrefore"  and  "heacown."  If  you 
want  to  find  a  single  word,  include  a 
space  as  the  first  character  of  the 


word,  since  almost  all  words  are 
preceded  by  a  space.  Naturally,  if 
you  are  replacing,  you  need  to  in- 
clude the  space  in  the  replace 
phrase,  too. 

Also,  SpeedScript  distinguishes 
between  upper-  and  lowercase.  The 
word  "Meldids"  does  not  match 
with  "meldids."  SpeedScript  will  not 
find  a  capitalized  word  unless  you 
capitalize  it  in  the  search  phrase.  To 
cover  all  bases,  you  will  sometimes 
need  to  make  two  passes  at  replac- 
ing a  word.  Keep  these  things  in 
mind  when  using  CTRL-Y,  since 
you  don't  have  a  chance  to  stop  a 
linked  find  and  replace. 

Storing  Your  Document 

To  store  your  text,  press  CTRL-S. 
You'll  see  the  prompt  SAVE:.  Type 
in  the  filename  and  press  RETURN. 
If  you  need  to  access  a  second  disk 
drive,  precede  the  filename  with  2:. 
This  becomes  the  default  drive  for 
future  disk  access.  To  return  to  drive 
I,  precede  the  filename  with  1:.  If 
the  filename  you  specify  coincides 
with  one  already  on  the  disk,  the 
existing  file  will  be  overwritten  by 
the  new  one. 

CTRL-S  always  saves  the  entire 
document.  The  cursor  position  with- 
in the  document  is  not  important. 

When  the  SAVE  is  complete, 
SpeedScript  reports  NO  ERRORS  if 
all  is  well,  or  gives  a  message  like 
DISK  FULL  if  not.  Check  your  DOS 
or  BASIC  manual  for  a  list  of  error 
messages  and  their  causes. 

Press  CTRL-C  to  display  the 
disk  catalog.  The  catalog  pauses 
when  the  screen  is  full,  waiting  for 
you  to  press  a  key  to  continue. 
When  the  catalog  is  finished,  press 
RETURN  to  return  to  editing. 

Loading  A  Document 

To  recall  a  previously  saved,  docu- 
ment, press  CTRL-L.  Answer  the 
LOAD:  prompt  with  the  filename. 
Again,  you  can  precede  the  filename 
with  1:  or  2:  to  switch  drives.  Speed- 
Script  loads  the  file  and  should  dis- 
play NO  ERRORS.  Otherwise, 
SpeedScript  reports  the  error. 

The  position  of  the  cursor  is  im- 
portant before  loading  a  file.  Docu- 
ments start  loading  at  the  cursor 
position,  so  be  sure  to  press  CTRL-(g) 
twice  or  CTRL-E  and  A  (Erase  All)  to 
move  the  cursor  to  the  start  of  text, 
unless  you  want  to  merge  two  docu- 
ments. When  you  press  CTRL-L  to 


load,  a  flashing  asterisk  appears  to 
warn  you  if  the  cursor  is  not  at  the 
top  of  the  document. 

To  merge  two  or  more  files, 
simply  load  the  first  file,  press 
CTRL-Z  to  move  the  cursor  to  the 
end  of  the  document,  and  then  load 
the  file  you  want  to  merge.  Do  not 
place  the  cursor  somewhere  in  the 
middle  of  your  document  before 
loading.  A  Load  does  not  insert  the 
text  from  disk,  but  overwrites  all  text 
after  the  cursor  position.  The  last 
character  loaded  becomes  the  new 
end-of-text  pointer,  and  you  cannot 
access  any  text  that  appears  ahead  of 
this  pointer. 

Since  SpeedScript  stores  docu- 
ments as  binary  files,  you  cannot 
read  a  text  file  in  BASIC,  load  a 
BASIC  program  into  SpeedScript,  or 
upload  a  text  file  with  a  modem. 
However,  Program  2  is  a  file  conver- 
sion program  which  allows  these 
functions.  It  converts  SpeedScript  bi- 
nary files  into  ASCII  text  files.  It  can 
also  convert  an  ASCII  text  file  into  a 
SpeedScript  binary  file.  This  lets  you 
convert  word  processing  files  from 
other  word  processors,  or  change  a 
SpeedScript  document  into  a  text  file 
suitable  for  uploading.  You  can  even 
edit  BASIC  programs  with  Speed- 
Script.  Add  the  following  line  to 
your  BASIC  program  and  run  it.  It 
creates  a  text  file  on  disk  of  your 
BASIC  listing, 

0  PRINT  CHR$(4);"OPEN  filename" 
:PRINT  CHR$(4)"WRITE 
filetiame":L\ST 

Run  Program  2  to  convert  the 
BASIC  text  file  to  a  SpeedScript  file. 
You  can  then  load  this  file  into 
SpeedScript  for  editing.  Save  this  file 
back  to  disk,  run  Program  2  to  con- 
vert it  back  to  a  text  file,  then  in 
BASIC  use  EXEC  filename  to  read 
the  text  file  back  into  BASIC.  Al- 
though this  seems  rather  tedious, 
you  may  find  it  quite  worthwhile 
when  working  with  long  programs. 
A  similar  technique  can  be  used  to 
edit  files  written  by  other 
applications. 

Note;  Delete  any  SpeedScript 
print  formatting  commands  (de- 
scribed below)  before  converting  a 
text  file  to  an  ASCII  file.  Otherwise, 
they  will  not  be  converted  correctly. 

Additional  Features 

SpeedScript  has  a  few  commands 
that  don't  do  much,  but  are  nice  to 


have.  CTRL-X  exchanges  the  char- 
acter under  the  cursor  with  the  char- 
acter to  the  right  of  the  cursor.  Thus 
you  can  fix  transposition  errors  with 
a  single  keystroke.  CTRL-W  (think 
switch)  changes  the  character  under 
the  cursor  from  uppercase  to  lower- 
case or  vice  versa. 

Apple  SpeedScript  traps  the  RE- 
SET key.  RESET  or  CTRL-RESET 
always  returns  you  to  editing  mode. 
There  is  no  way  to  exit  SpeedScript 
once  you've  run  it,  short  of 
rebooting. 

PRINT! 

If  you  already  think  SpeedScript  has 
plenty  of  commands,  wait  until  you 
see  what  the  printing  package  of- 
fers. SpeedScript  supports  an  array  of 
powerful  formatting  features.  It 
automatically  fits  your  text  between 
left  and  right  margins  you  can  speci- 
fy. You  can  center  a  line  or  block  it 
against  the  right  margin.  SpeedScript 
skips  over  the  perforation  on  contin- 
uous-form paper,  or  can  wait  for  you 
to  insert  single-sheet  paper.  A  line  of 
text  can  be  printed  at  the  top  of  each 
page  (a  lieader)  and/or  at  the  bottom 
of  each  page  (a  footer),  and  can  in- 
clude automatic  page  numbering, 
starting  with  whatever  number  you 
like. 

SpeedScript  can  print  on  differ- 
ent lengths  and  widths  of  paper,  and 
single-,  double-,  triple-,  or  any- 
spacing  is  easy.  You  can  print  a  doc- 
ument as  big  as  can  fit  on  a  disk  by 
linking  several  files  together  during 
printing.  You  can  print  to  the  screen 
or  to  a  file  instead  of  to  a  printer. 
Other  features  let  you  send  special 
codes  to  the  printer  to  control  fea- 
tures like  underlining,  boldfacing, 
italics,  and  double-width  type  (de- 
pending on  the  printer). 

But  with  all  this  power  comes 
the  need  to  learn  additional  com- 
mands. Fortunately,  SpeedScript  sets 
most  of  these  variables  to  a  default 
state.  If  you  don't  change  these  set- 
tings, SpeedScript  assumes  a  left 
margin  of  five,  a  right  margin  posir 
tion  of  75,  no  header  or  footer, 
single-spacing,  and  continuous  pa- 
per page  feeding.  You  can  change 
these  default  settings  if  you  want 
(see  below). 

Before  printing,  be  sure  the  pa- 
per in  your  printer  is  adjusted  to  top- 
of-form  (move  the  paper  perforation 
just  above  the  printing  element). 
One  additional  note:  Some  printers 


incorporate  an  automatic  skip-over- 
perforation  feature.  The  printer 
skips  to  the  next  page  when  it 
reaches  the  bottom  of  a  page.  Since 
SpeedScript  already  controls  paper 
feeding,  you  need  to  turn  off  this 
automatic  skip-over-perf  feature 
before  running  SpeedScript,  or  pag- 
ing won't  work  properly. 

To  begin  printing,  press  CTRL- 
P.  If  your  printer  is  attached, 
powered  on,  and  selected  (online), 
SpeedScript  begins  printing  immedi- 
ately. To  cancel  printing,  press 
CTRL  and  the  RESET  key. 

If  you  need  to  print  to  an  RS- 
232  printer  or  to  a  printer  in  a  slot 
other  than  slot  #1,  press-  ESC- 
CTRL-P  (Apple  II -h)  or  OpAp- 
CTRL-P  (Apple  lle/IIc).  This  brings 
up  the  prompt  PRINT  TO:  SCREEN, 
PRINTER?  Press  S  to  print  to  the 
screen.  If  you  don't  have  lowercase, 
the  screen  display  won't  make  much 
sense,  although  you  can  still  see 
where  pages  break.  If  you  have  an 
Apple  lie,  an  Apple  He  with  the  80- 
column  card,  or  an  Apple  II -h  with  a 
compatible  80-column  card,  Speed- 
Script  automatically  prints  to  the 
screen  in  80  columns,  simulating  the 
printer. 

If  you  select  P,  you'll  be  asked 
for  the  slot  number.  Output  is  sent 
to  the  slot  number  you  select.  It's 
similar  to  PR#  in  BASIC.  If  you  print 
to  slot  6  (the  disk  drive),  you'll  cause 
the  system  to  reboot,  so  be  careful. 

Formatting  Commands 

The  print  formatting  commands  are 
single  letters  embedded  in  text,  such 
as  L  for  left  margin.  To  enter  a  for- 
matting variable,  press  CTRL-V. 
You'll  see  the  prompt  ENTER  FOR- 
MAT VARIABLE:.  Now  press  any 
key.  The  print  formatting  com- 
mands must  be  distinguished  from 
normal  text,  so  they  appear  on- 
screen in  flashing  inverse  video  with 
the  text  and  background  colors 
switched.  All  lettered  printer  com- 
mands should  be  entered  without 
the  SHIFT  key.  During  printing, 
SpeedScript  treats  these  characters  as 
printing  commands. 

There  are  two  kinds  of  printing 
commands,  which  we'll  call  Stage  1 
and  Stage  2.  Stage  1  commands 
usually  control  variables  such  as  left 
margin  and  right  margin.  Most  are 
followed  by  a  number,  with  no 
space  between  the  command  and 
the  number,  Stage  1  commands  are 
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executed  before  a  line  is  printed. 

Stage  2  commands,  like  center- 
ing and  underlining,  are  executed 
while  the  line  is  being  printed. 
Usually  Stage  1  commands  must  be 
on  a  line  of  their  own,  although  you 
can  group  several  Stage  1  com- 
mands together  on  a  line.  Stage  2 
commands  are  by  nature  embedded 
within  a  line  of  text.  Again,  remem- 
ber to  press  CTRL-V  to  enter  the 
boldface  characters  shown  below. 

Stage  1  Commands 

L  Left  margin.  Follow  with  a 
number  from  0  to  255.  Use  0  for  no 
margin.  Defaults  to  5. 

R  Right  margin  position,  a 
number  from  1  to  255.  Defaults  to 
75.  Be  sure  the  right  margin  value  is 
greater  than  the  left  margin  value,  or 
SpeedScript  will  go  bonkers. 

T  Top  margin.  The  position  at 
which  the  first  line  of  text  is  printed, 
relative  to  the  top  of  the  page.  De- 
faults to  5.  The  header  (if  any)  is 
always  printed  on  the  first  line  of  the 
page,  before  the  first  line  of  text. 

B  Bottom  margin.  The  line  at 
which  printing  stops  before  continu- 
ing to  the  next  page.  Standard  8V2  X 
11 -inch  paper  has  66  lines.  Bottom 
margin  defaults  to  the  fifty-eighth 
line.  Don't  make  the  bottom  margin 
greater  than  the  page  length. 

P  Page  length.  Defaults  to  66.  If 
your  printer  does  not  print  six  lines 
per  inch,  multiply  lines-per-inch  by 
11  to  get  the  page  length,  European 
paper  is  usually  longer  than  Ameri- 
can paper — 11%  or  12  inches.  Try  a 
page  length  of  69  or  72. 

S  Spacing.  Defaults  to  single- 
spacing.  Follow  with  a  number  from 
1  to  255.  Use  1  for  single-spacing,  2 
for  double-spacing,  3  for  triple- 
spacing. 

@  Start  numbering  at  page 
number  given.  Page  numbering  nor- 
mally starts  with  1, 

?  Disables  printing  until  select- 
ed page  number  is  reached.  For  ex- 
ample, a  value  of  3  would  start 
printing  the  third  page  of  your  docu- 
ment. Normally,  SpeedScript  prints 
starting  with  the  first  page. 

X  Sets  the  page  width,  in  col- 
umns (think  a  cross).  Defaults  to  80. 
You  need  to  change  this  for  the  sake 
of  the  centering  command  if  you  are 
printing  in  double-width  or  con- 
densed type,  or  are  using  a  40- 
column  or  wide-carriage  printer. 
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N  Forced  paging.  Normally, 
SpeedScript  prints  the  footer  and 
moves  on  to  the  next  page  only 
when  it  has  finished  a  page,  but  you 
can  force  it  to  continue  to  the  next 
page  by  issuing  this  command.  It 
requires  no  numbers. 

M  Margin  release.  Disables  the 
left  margin  for  the  next  printed  line. 
Remember  that  this  executes  before 
the  line  is  printed.  It's  used  for 
outdenting. 

W  Page  wait.  This  command 
should  be  placed  at  the  beginning  of 
your  document  before  any  text. 
With  page  wait  turned  on,  Speed- 
Script  prompts  you  to  INSERT 
NEXT  SHEET,  PRESS  RETURN 
when  each  page  is  finished  printing. 
Insert  the  next  sheet,  line  it  up  with 
the  printhead,  then  press  RETURN 
to  continue.  Page  wait  is  ignored 
during  disk  or  screen  output. 

J  Select  automatic  linefeeds 
after  carriage  return.  Like  W,  this 
command  must  be  placed  before 
any  text.  Don't  use  this  command  to 
achieve  double-spacing,  but  only  if 
all  text  prints  on  the  same  line  v.'ith 
some  printers. 

I  Information.  This  works  like 
REM  in  BASIC.  You  follow  the  com- 
mand with  a  line  of  text,  up  to  255 
characters,  ending  in  a  return-mark. 
This  line  will  be  ignored  during 
printing,  and  is  handy  for  making 
notes  to  yourself  such  as  the  file- 
name of  the  document. 

H  Header  define  and  enable. 
The  header  must  be  a  single  line  of 
text  (up  to  254  characters)  ending  in 
a  return-mark.  The  header  prints  on 
the  first  line  of  each  page.  You  can 
include  Stage  2  commands  such  as 
centering  and  page  numbering  in  a 
header.  You  can  use  a  header  by 
itself  without  a  footer.  The  header 
and  footer  should  be  defined  at  the 
top  of  your  document,  before  any 
text.  If  you  want  to  prevent  the 
header  from  printing  on  the  first 
page,  put  a  return-mark  by  itself  at 
the  top  of  your  document  before  the 
header  definition. 

F  Footer  define  and  enable.  The 
footer  must  be  a  single  line  of  text 
(up  to  254  characters)  ending  in  a 
return-mark.  The  footer  prints  two 
lines  prior  to  the  last  line  of  each 
page.  As  with  the  header,  you  can 
include  Stage  2  printing  commands, 
and  you  don't  need  to  set  the  header 
to  use  a  footer. 


G  Go  to  (link)  next  file.  Put  this 

command  as  the  last  line  in  your 
document.  Follow  the  command 
with  the  filename  (with  no  spaces 
between  the  G  and  the  filename), 
including  the  drive  number  prefix  1: 
or  2:,  if  appropriate.  After  the  text  in 
memory  is  printed,  the  link  com- 
mand loads  the  next  file  into  memo- 
ry. You  can  continue  linking  succes- 
sive files,  but  don't  include  a  link  in 
the  last  file.  Before  you  start  printing 
a  linked  file,  make  sure  the  first  of 
the  linked  files  is  in  memory.  When 
printing  is  finished,  the  last  file 
linked  to  will  be  in  memory. 

Stage  2  Commands 

These  commands  either  precede  a 
line  of  text  or  are  embedded  within 
one. 

C  Centering.  Put  this  at  the  be- 
ginning of  a  line  you  want  to  center. 
This  centers  only  one  line  ending  in 
a  return-mark.  Repeat  this  com- 
mand at  the  beginning  of  every  line 
you  want  centered.  Centering  uses 
the  page-width  setting  (see  above) 
to  properly  center  the  line.  To  center 
a  double-width  line,  either  set  the 
page  width  to  40  or  pad  out  the  rest 
of  the  line  with  an  equal  number  of 
spaces.  If  you  use  double  width,  re- 
member that  the  spaces  preceding 
the  centered  text  will  be  double- 
wide  spaces. 

#  When  SpeedScript  encounters 
this  command,  it  prints  the  current 
page  number.  You  usually  embed 
this  within  a  header  or  footer. 

U  A  simple  form  of  underlining. 
It  works  only  on  printers  that  recog- 
nize CHR$(8)  as  a  backspace  and 
CHR$(95)  as  an  underline  character. 
Underlining  works  on  spaces,  too. 
Use  the  first  U  to  start  underlining, 
and  another  one  to  turn  off 
underlining. 

Fonts  And  Styles 

Most  dot-matrix  printers  are  capable 
of  more  than  just  printing  text  at  ten 
characters  per  inch.  Some  printers 
have  several  character  sets,  with 
italics  and  foreign  language  charac- 
ters. Most  can  print  in  double  width 
(40  characters  per  line),  condensed 
(132  characters  per  line),  and  in 
either  pica  or  elite.  Other  features 
may  include  programmable  charac- 
ters, programmable  tab  stops,  and 
graphics  modes.  Many  word  proces- 
sors customize  themselves  to  a  par- 
ticular  printer,   but    for   flexibility 


SpeedScript  was  purposely  designed 
not  to  be  printer-specific.  Instead, 
SpeedScript  lets  you  define  your  own 
Stage  2  printing  commands. 

You  define  a  programmable 
printkey  by  choosing  any  character 
that  is  not  already  used  for  other 
printer  commands.  The  numbers  0-9, 
most  symbols,  and  some  alphabetic 
characters  are  available  for  print- 
keys.  You  enter  these  commands 
like  printer  commands  with  CTRL-V. 
The  printkeys  are  like  variables  in 
BASIC. 

To  define  a  printkey,  press 
CTRL-V,  then  type  the  key  you 
want  to  assign  as  the  printkey,  then 
an  equals  sign  (  =  ),  and  finally  the 
ASCII  value  to  be  substituted  for  the 
printkey  during  printing.  Now 
whenever  SpeedScript  encounters 
the  printkey  embedded  in  text,  it 
prints  the  character  with  the  ASCII 
value  you  previously  defined,  (If 
you  have  trouble  passing  some 
printkeys  to  the  printer,  try  adding 
128  to  the  ASCII  value  you  wish  to 
send.  Otherwise,  some  printer  inter- 
faces intercept  the  printkey.) 

For  example,  to  define  the  + 
key  as  the  letter  z,  you  first  look  up 
the  ASCII  value  of  the  letter  z  (in 
either  your  printer  manual  or  in  the 
BASIC  manual).  The  ASCII  value  of 
the  letter  z  is  122,  so  the  definition 
is: 

iK=t22B 

Now,  anywhere  you  want  to  print 
the  letter  z,  substitute  the  printkey: 

6ac|j||ooks!   ThejQ|bo  isQanyfQ 
This  would  appear  on  paper  as: 
Gadzooks!  The  zoo  is  zany! 

More  practically,  here's  how 
you  could  program  italics  on  an  Ep- 
son MX-80  compatible  printer.  You 
switch  on  italics  by  sending  an  ESC 
(a  character  with  an  ASCII  value  of 
17),  then  the  character  4.  You  turn 
off  italics  by  sending  ESC  5.  So  de- 
fine *  as  the  escape  code.  Anywhere 
you  want  to  print  a  word  in  italics, 
bracket  it  with  *4  and  *5. 

You  can  similarly  define  what- 
ever codes  your  printer  uses  for  fea- 
tures like  double  width  or  empha- 
sized mode.  For  your  convenience, 
four  of  the  printkeys  are  predefined, 
though  you  can  change  them.  The 
keys  1-4  are  defined  as  27,  14,  15, 


and  18,  common  values  for  most 
printers.  On  most  printers, 
CHR$(27)  is  the  ESCape  key, 
CHR$(:4)  starts  double-width 
printing,  CF1R$(15)  either  stops 
double  width  or  starts  condensed 
characters,  and  CHR$(18)  usually 
cancels  condensed  characters. 

Keep  one  thing  in  mind  about 
printkeys.  SpeedScript  always  as- 
sumes it  is  printing  to  a  rather  dumb, 
featureless  printer,  the  least  com- 
mon denominator.  SpeedScript 
doesn't  understand  the  intent  of  a 
printkey;  it  justs  sends  out  its  value. 
So  if  you  make  one  word  within  a 
line  double  width,  it  may  make  the 
line  overflow  the  specified  right 
margin.  There's  no  way  for  Speed- 
Script  to  include  built-in  font  and 
typestyle  codes  without  being  cus- 
tomized for  a  particular  printer, 
since  no  set  of  codes  is  universal  to 
all  printers. 

Hints  And  Tips 

It  may  take  you  awhile  to  fully  mas- 
ter SpeedScript,  but  as  you  do  you'll 
discover  many  ways  to  use  the  edit- 
ing and  formatting  commands.  For 
example,  there  is  a  simple  way  to 
simulate  tab  stops,  say  for  a  colum- 
nar table.  Just  type  a  period  at  every 
tab  stop  position.  Erase  the  line  with 
CTRL-E,  then  restore  it  with  CTRL- 
carat  multiple  times.  When  you  are 
filling  in  the  table,  just  use  word- 
left/word-right  to  jump  quickly  be- 
tween the  periods.  Or  you  can  use 
the  programmable  printkeys  to  em- 
bed your  printer's  own  commands 
for  setting  and  jumping  to  tab  stops. 
You  don't  have  to  change  or 
define  printer  commands  every  time 
you  write.  Just  save  these  defini- 
tions, and  load  this  file  for  each 
session.  You  can  create  many  cus- 
tom definition  files  and  have  them 
ready  to  use  on  disk.  You  can  create 
customized  "fill-in-the-blank"  let- 
ters. Just  type  the  letter,  and  every- 
where you'll  need  to  insert  some- 
thing, substitute  a  unique  character, 
such  as  an  *  or  a  CTRL  character. 
When  you're  ready  to  customize  the 
letter,  use  Find  to  locate  each  sym- 
bol and  insert  the  specific  infor- 
mation. Instead  of  typing  an 
oft-used  word  or  phrase,  substitute  a 
unique  character,  then  use  CTRL-Y 
to  automatically  change  these  char- 
acters into  the  actual  word  or 
phrase.  You  can  even  use  Speed- 
Script  as  a  simple  filing  program. 


Just  type  in  all  your  data,  flagging 
each  field  with  a  unique  character. 
You  can  use  Find  to  quickly  locate 
any  field. 

If  you  experience  any  problems 
with  SpeedScript  that  you  are  sure 
are  not  due  to  your  error,  please 
write  (don't  call)  with  a  detailed  ex- 
planation of  the  problem  and  how  it 
occurred.  Describe  your  hardware 
configuration.  It  also  helps  to  send 
us  a  disk  copy  of  your  typing  so  we 
can  determine  with  our  equipment 
whether  you  have  a  hardware 
problem. 

Due  to  the  volume  of  mail,  we 
cannot  always  reply  to  individual 
questions,  but  we  welcome  your 
suggestions.  Who  knows — your 
feedback  may  help  make  Speed- 
Script  4.0  a  reality. 


The  Apple  version  of  SpeedScript 
3.0,  and  all  other  Apple  programs  in 
this  issue,  may  be  ordered  on  disk 
directly  from  COMPUTE!  Publica- 
tions. Call  TOLL  FREE  1-800-334- 
0868  {In  NC  1-919-275-9809)  to 
charge  your  order  8:30  a. m, -7:00 
p.m.  Eastern  Time,  Monday 
through  Friday.  Or  send  check  or 
money  order  (SI 2.95  plus  $2.00 
shipping  and  handling)  to: 

COMPUTE}  Publications,  Inc. 
P.O.  Box  5058 
Greensboro,  NC  27403  USA 

Readers  outside  the  United  States 
and  Canada  add  $3,00  shipping  and 
handling.  All  orders  must  be  pre- 
paid in  US  funds. 


Program  1 :  SpeedScript  3.0 
For  Apple 

Please  refer  to  the  "Apple  MLX"  article  before 
entering  this  listing. 


START  ADDRESS:  0800 
END  ADDRESS:    1E45 


0S00: 
0808: 
0B10! 
0819: 
0S20: 
0B2S: 
0B30: 
0B3BS 
0840: 
0B48: 
0850: 
0858: 
0860! 
0868: 
0B70: 
0878: 
0BS0: 
0888: 


20  5B 
ED  84 
20  E9 
CE  D0 
AC  28 
20  29 
0B  AS 
SD  52 
A5  IB 
20  A9 
B9  FF 
53  IE 
55  08 
E0  A5 
AA  05 
65  08 
98  08 
08  A5 


FC  A9 
EE  A0 
09  C9 
F5  A9 
08  A9 
0A  20 
06  8D 
0B  A5 
BD  55 
00  SD 
FF  99 
D0  F4 
E0  00 
ID  D0 
ID  D0 
BD  99 

18  SA 

19  SD 


26  A0  IE 
00  20  DE 
D9  F0  0C 

00  SD  00 
80  BD  00 
9B  09  4C 
51  08  A5 
19  BD  54 
08  fl6  F9 
53  IE  A0 
FF  FF  C8 
EE  52  08 
F0  07  CA 
DE  60  A5 

01  60  18 
08  A5  06 
65  IB  8D 
9B  08  E8 


85  ES 
09  5F 
C9  DC 
03  56 

03  39 
IB  87 
08  Cb 
0B  AE 
F0  B0 
00  FF 
CC  35 
EE  C2 
D0  43 
F9  C0 
BA  0C 
BD  F8 
9C  D9 

04  75 
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0B90: 

ID 

D0 

04 

F0 

0D 

A0 

FF 

B9 

97 

0B30: 

CC 

0A 

AA 

AD 

51 

IE 

F0 

07 

4B 

0OD0: 

BF 

F0 

13 

C9 

3C 

F0 

0F 

BB 

52 

0898! 

FF 

FF 

99 

FF 

FF 

88 

C0 

FF 

7F 

0B3B: 

8A 

48 

20 

90 

0A 

68 

AA 

BA 

84 

0DD8: 

D0 

EB 

C6 

EC 

A5 

EC 

CD 

46 

C0 

08  A0: 

D0 

F5 

CE 

99 

08 

CE 

9C 

08 

C6 

0B40: 

C9 

FF 

00 

06 

20 

5A 

0F 

4C 

aA 

0DE03 

IE 

B0 

E2 

4C 

FC 

00 

84 

ED 

6A 

08A8: 

CA 

D0 

EA 

60 

A2 

00 

BD 

60 

B3 

0B4S: 

18 

0B 

8A 

C9 

80 

00 

02 

A2 

71 

0DEB: 

C6 

EO 

CB 

F0 

0A 

Bl 

EB 

C9 

C2 

08B0: 

09 

8D 

0F 

09 

80 

40 

09 

BD 

58 

0B50i 

3C 

SA 

29 

7F 

C9 

20 

90 

48 

7C 

0OF0: 

A0 

F0 

F7 

BB 

4C 

26 

0D 

A4 

08 

0868: 

84 

09 

8D 

0E 

09 

80 

3F 

09 

E5 

0B58! 

BA 

20 

B9 

0A 

48 

A0 

00 

Bl 

0A 

0DFB: 

ED 

4C 

C5 

00 

AD 

46 

IE 

B5 

EE 

0SC0: 

AD 

4F 

IE 

80 

DC 

0B 

80 

EO 

28 

0B60: 

FB 

C9 

3C 

F0 

05 

AD 

52 

IE 

IF 

0E00: 

FB 

AD 

47 

IE 

BS 

FC 

4C 

IF 

28 

08C8: 

0B 

80 

03 

09 

AO 

50 

IE 

BD 

A9 

0B6B: 

F0 

03 

20 

BE 

10 

68 

A0 

00 

0B 

0E08: 

0C 

AO 

61 

C0 

00 

44 

IE 

4D 

00 

08D0: 

DD 

00 

BD 

EE 

08 

80 

04 

09 

F9 

0B70: 

91 

FB 

20 

AC 

08 

38 

AS 

FB 

85 

0E10: 

63 

C0 

30 

03 

4C 

69 

11 

A0 

0F 

0eD8: 

EB 

A0 

00 

B9 

FF 

FF 

C8 

C9 

7C 

0B7B: 

ED 

55 

IE 

as 

ED 

A5 

FC 

ED 

E4 

0Eia: 

00 

Bl 

FB 

C9 

AE 

F0 

ID 

C9 

F9 

0eE0: 

82 

F0 

IC 

C9 

3C 

F0 

18 

C0 

25 

0B80: 

56 

IE 

05 

ED 

90 

0E 

A5 

FB 

CC 

0E20: 

Al 

F0 

19 

C9 

BF 

F0 

15 

C9 

BE 

0SE8: 

28 

D0 

F0 

BB 

B9 

FF 

FF 

C9 

7F 

0BBB: 

69 

00 

80 

55 

IE 

A5 

FC 

69 

45 

0E28: 

3C 

F0 

11 

CB 

00 

EB 

E6 

FC 

4E 

08F0I 

80 

F0 

0B 

29 

3F 

C9 

20 

F0 

C3 

0B90! 

00 

80 

56 

IE 

E6 

FB 

00 

02 

Bl 

0E30: 

A5 

FC 

CD 

56 

IE 

F0 

E2 

90 

as 

0BF8i 

05 

88 

D0  J^0 

A0 

27 

C8 

84 

BE 

0B98! 

E6 

FC 

20 

IF 

0C 

4C 

IB 

0B 

24 

0E38: 

E0 

4C 

6C 

00 

CB 

00 

0E 

E6 

C2 

0900: 

ED 

se 

B9 

FF 

FF 

10 

06 

C9 

78 

0BA0: 

BA 

48 

20 

AC 

08 

68 

AE 

C7 

E3 

0E40: 

FC 

A5 

FC 

CD 

56 

IE 

90 

05 

12 

0908: 

83 

B0 

02 

A5 

FF 

99 

FF 

FF 

09 

0BAS: 

0B 

DD 

C7 

0B 

F0 

06 

CA 

D0 

6B 

0E4e: 

F0 

03 

4C 

6C 

00 

Bl 

FB 

C9 

DE 

0910! 

BB 

10 

EF 

A4 

ED 

18 

98 

60 

21 

0BB0! 

FB 

4C 

IS 

0B 

CA 

8A 

0A 

AA 

49 

0E50: 

A0 

F0 

E9 

C9 

AE 

F0 

ES 

C9 

Al 

0918: 

DC 

08 

8D 

DC 

08 

80 

ED 

0B 

74 

0BBS: 

A9 

0B 

48 

A9 

17 

48 

BD 

E6 

46 

0E58! 

Al 

F0 

El 

C9 

BF 

F0 

00 

C9 

Al 

0920: 

BD 

03 

09 

AO 

DD 

08 

69 

00 

97 

0BC0] 

0B 

4B 

BD 

E5 

0B 

48 

60 

ID 

OB 

0E60: 

3C 

F0 

09 

4C 

SD 

0D 

20 

A6 

DC 

0928: 

8D 

DD 

08 

80 

EE 

08 

8D 

04 

09 

0BCa: 

95 

as 

SB 

BA 

82 

BF 

a4 

80 

CI 

0E68: 

0A 

A9 

38 

A0 

IE 

20 

05 

09 

2B 

0930: 

09 

E0 

01 

00 

03 

ac 

4E 

IE 

31 

0BD0: 

89 

B5 

BC 

93 

B3 

9E 

98 

9A 

3A 

0E70: 

20 

3S 

11 

F0 

03 

4C 

90 

0A 

sa 

0938: 

C0 

28 

F0 

0A 

A9 

A0 

99 

FF 

76 

0BOB: 

90 

96 

87 

97 

BE 

86 

Bl 

94 

6D 

0E78: 

AD 

4A 

IE 

BO 

CA 

IE 

AO 

4B 

10 

0940: 

FF 

C8 

C0 

28 

D0 

Fa 

BD 

60 

72 

0BE0: 

91 

92 

9D 

99 

9B 

04 

0C 

EB 

E2 

0ES0: 

IE 

00 

CB 

IE 

20 

A6 

0A 

A9 

C3 

0948: 

09 

SD 

0F 

09 

BD 

40 

09 

BD 

Fl 

0BEBi 

0C 

94 

0D 

08 

0E 

59 

0F 

BD 

FD 

0EaB: 

F0 

A0 

IC 

20 

05 

09 

A9 

01 

Fl 

0950! 

84 

09 

80 

0E 

09 

BD 

3F 

09 

7F 

0BF0: 

10 

83 

0F 

CB 

0F 

23 

11 

E4 

6A 

0E90: 

80 

51 

IE 

60 

38 

AS 

FB 

ED 

CF 

0958: 

EB 

E0 

18 
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EB 

85 

ED 

A3 

EC 

69 

00 

85 

58 

1DC0:  D2  C5  C5  CE  AC  A0  00  D2  07 

IBBB: 

20 

05 

IC 

A9 

BD 

20 

52 

16 

CF 

1B2B! 

EE 

AD 

55 

IE 

C5 

ED 

AD 

56 

65 

1DC8:  C9  CE  04  C5  02  BF  00  03  FB 

1B90: 

AC 

D9 

IE 

8C 

E4 

IE 

BB 

BB 

53 

1B30: 

IE 

E5 

EE 

90 

IB 

38 

A5 

ED 

B0 

1000:  CC  CF  D4  A0  CE  D5  CD  C2  36 

1898: 

F0 

0A 

30 

0B 

A9 

BD 

20 

52 

60 

1B3B: 

ED 

F0 

IE 

85 

FB 

BD 

ED 

IE 

CD 

IDDB:  C5  02  BF  00  00  D2  C9  CE  06 

1BA0: 

16 

88 

D0 

FB 

60 

A9 

A0 

AC 

3F 

1B40! 

AS 

EE 

E9 

00 

85 

FC 

BD 

EE 

6C 

1DE0:  D4  C9  CE  C7  AE  AE  AE  00  OB 

ISAB: 

D6 

IE 

BC 

E3 

IE 

F0 

06 

20 

7C 

1B4B: 

IE 

20 

IF 

0C 

60 

20 

A6 

0A 

15 

IDEB:  C9  CE  03  C5  D2  D4  A0  CE  SC 

1BB0: 

52 

16 

SB 

D0 

FA 

60 

AC 

DB 

3C 

1B50: 

ft9 

0E 

A0 

IE 

20 

D5 

09 

A9 

E8 

1OF0:  C5  D8  D4  ft0  03  CB  C5  C5  FB 

ISBB: 

IE 

IB 

9B 

6D 

E4 

IE 

BD 

E4 

87 

1B5B: 

01 

ao 

SI 

IE 

60 

AD 

61 

C0 

BB 

1DF8:  04  AC  A0  00  02  C5  D3  03  13 

1BC0: 

IE 

A9 

BD 

20 

52 

16 

88 

D0 

EA 

1B60: 

0D 

44 

IE 

4D 

63 

C0 

30 

23 

68 

1E00:  A0  02  C5  04  D5  02  CE  00  DE 

ISCB: 

FA 

60 

BD 

E6 

IE 

AE 

10 

19 

93 

1B6B: 

20 

A6 

0A 

A9 

18 

A0 

IE 

20 

03 

1E0B:  C6  C9  CE  C4  8A  00  CE  CF  83 

18D0: 

DD 

10 

19 

F0 

09 

CA 

D0 

FB 

34 

1B70! 

D5 

09 

20 

71 

12 

80 

19 

IF 

07 

1E10:  04  A0  C6  CF  05  CE  C4  00  28 

18DB: 

CE 

E3 

IE 

4C 

09 

lA 

CA 

8A 

C2 

1878: 

F0 

0E 

A0 

00 

B9 

B3 

IE 

99 

70 

lElB:  D2  C5  00  CC  Cl  C3  C5  A0  5F 

18E0! 

0A 

AA 

BC 

E5 

IE 

A9 

18 

48 

C0 

1B80: 

lA 

IF 

CB 

CC 

58 

IE 

D0 

F4 

43 

1E20:  07  C9  04  CB  BA  00  CC  CF  21 

laES: 

A9 

F3 

48 

BD 

22 

19 

4B 

BD 

93 

iBess 

4C 

90 

0A 

38 

A5 

FB 

85 

19 

0F 

1E2B!  D7  CS  02  C3  Cl  D3  C5  A0  El 

1BF0: 

21 

19 

48 

60 

38 

AD 

E3 

IE 

69 

1B90: 

ED 

ED 

IE 

85 

ED 

A5 

FC 

85 

DA 

1E30:  DB  D9  AF  CE  00  BF  60  00  62 

ISFB: 

63 

EB 

BS 

EB 

A5 

EC 

69 

00 

F9 

1698! 

IB 

ED 

EE 

IE 

05 

ED 

00 

62 

7B 

1E3B:  CE  05  CC  CC  A0  C2  05  C6  3A 

1900: 

85 

EC 

4C 

31 

17 

Bl 

EB 

C9 

ED 

1BA0: 

A9 

FF 

80 

EE 

IE 

IB 

AD 

F0 

E9 

1E40:  C6  CS  02  00  00  FF  00  00  AB 

190B: 

3C 

F0 

01 

SB 

BC 

E5 

IE 

60 

DS 

1BA8! 

IE 

65 

FB 

85 

06 

A9 

00 

65 

5B 

J910: 

10 

57 

4C 

32 

54 

42 

53 

4E 

6F 

1BB0: 

FC 

85 

08 

38 

AO 

55 

IE 

E5 

30 

1918: 

48 

46 

40 

50 

7F 

58 

4D 

49 

4E 

IBBB: 

19 

B5 

ID 

AD 

56 

IE 

E5 

IB 

60 

Program  2:  SpeedScript  3.0 

1920: 

47 

7D 

19 

B6 

19 

90 

19 

9A 

BS 

1BC0: 

85 

F9 

20 

31 

08 

38 

AO 

55 

21 

File  Converter 

l92Bi 

19 

A4 

19 

AE 

19 

BB 

19 

C7 

C3 

IBCB: 

IE 

ED 

F0 

IE 

BD 

55 

IE 

AO 

35 

1930: 

19 

E9 

19 

63 

19 

73 

19 

53 

DE 

18D0: 

56 

IE 

E9 

00 

BD 

56 

IE 

AD 

A6 

193B: 

19 

49 

19 

40 

19 

02 

lA 

29 

9E 

IBDB: 

19 

IF 

F0 

26 

BD 

EB 

IE 

A9 

09 

5  Hlntn:  oivi 

1940! 

lA 

C8 

A9 

00 

BD 

E2 

IE 

4C 

67 

1BE0: 

00 

80 

E9 

IE 

20 

D4 

10 

A0 

AE 

10  HOME 

1948: 

05 

19 

ca 

20 

F0 

14 

8D 

El 

33 

IBEB: 

00 

B9 

lA 

IF 

91 

FB 

CB 

CC 

90 

20  0*  =  CHRS  (4) 

1950: 

IE 

4C 

05 

19 

CB 

20 

F0 

14 

93 

1BF0: 

19 

IF 

00 

F5 

IB 

A5 

FB 

60 

Bl 

30  PRINT  D«! "MAXFILESl" 

1958: 

BD 

DF 

IE 

AD 

C9 

IE 

BD 

E0 

AA 

IBFB: 

19 

IF 

85 

FB 

A5 

FC 

69 

00 

E7 

40  PRINT  "DO  YOU  WANT  TD; " 

1960: 

IE 

4C 

05 

19 

C8 

20 

F0 

14 

A3 

1C00! 

85 

FC 

4C 

IF 

0C 

A0 

00 

CC 

65 

50  PRINT  "  (1)  MAKE  A  SPEEOSCRI 

1968! 

SD 

DD 

IE 

AD 

C9 

IE 

8D 

DE 

3B 

lC0e: 

33 

IE 

F0 

21 

Bl 

06 

30 

04 

EE 

PT  FILE  INTO  A  TEXT      FILE 

1970! 

IE 

4C 

05 

19 

CB 

20 

F0 

14 

B3 

1C10: 

C9 

40 

B0 

lA 

20 

2F 

16 

20 

FE 

1978! 

SD 

Da 

IE 

4C 

05 

19 

A9 

00 

10 

ICIB: 

52 

16 

AD 

EC 

IE 

F0 

0A 

A9 

F5 

60  PRINT  "  (2)  MAKE  A  TEXT  FILE 

19B0: 

BD 

DC 

IE 

CB 

4C 

05 

19 

CB 

72 

1C20! 

SB 

20 

52 

16 

A9 

OF 

20 

52 

AF 

INTO  A  SPEEDSCRIPT      FILE 

1988! 

20 

F0 

14 

8D 

D6 

IE 

4C 

05 

2F 

1C28: 

16 

CB 

4C 

07 

IC 

60 

ec 

ES 

FB 

1 

1990! 

19 

C8 

20 

F0 

14 

SD 

D7 

IE 

39 

1C30: 

IE 

80 

E6 

IE 

20 

2F 

16 

C9 

4D 

70  GET  At: A  -  VAL  (A«) 

199SS 

4C 

0S 

19 

CB 

20 

F0 

14 

BD 

5C 

lC3e! 

43 

D0 

IB 

38 

AD 

El 

IE 

ED 

4C 

80  IF  A  <  >  1  AND  A  <  >  2  THEN 

19A0: 

D9 

IE 

4C 

05 

19 

CB 

20 

F0 

3E 

1C40: 

53 

IE 

4A 

3Q 

ED 

06 

IE 

AB 

26 

70 

1908: 

14 

BD 

DA 

IE 

4C 

05 

19 

CB 

F6 

lC4e: 

A9 

A0 

20 

52 

16 

88 

00 

FA 

16 

90  ON  A  GOTO  100,200 

19B0! 

20 

F0 

14 

BD 

DB 

IE 

4C 

05 

7F 

1C50! 

AC 

E5 

IE 

4C 

29 

IC 

C9 

45 

73 

100 

PRINT  "ENTER  SPEEDSCRIPT  Fl 

19B8: 

19 

AC 

E5 

IE 

CB 

9B 

48 

20 

9ft 

ICSB: 

D0 

11 

38 

AD 

D7 

IE 

ED 

53 

85 

LE  NAME"!  INPUT  " : " ; A« 

19C0! 

00 

IB 

68 

AB 

8C 

ES 

IE 

60 

29 

1C60: 

IE 

38 

ED 

D6 

IE 

AB 

A9 

A0 

68 

110 

PRINT  "ENTER  TEXT  FILE  NAME 

19Ca! 

20 

E2 

19 

SB 

ac 

D4 

IE 

A0 

04 

1C6B! 

4C 

4A 

IC 

C9 

55 

D0 

08 

AD 

25 

TO  CREATE"!  INPUT  ":";B» 

19D0! 

01 

Bl 

EB 

99 

Cl 

20 

CB 

CC 

F3 

1C70! 

EC 

IE 

49 

01 

8D 

EC 

IE 

C9 

06 

120 

PRINT  0«}"BLQAD  "jA»;",A»20 

19DS: 

D4 

IE 

90 

F5 

F0 

F3 

ce 

4C 

A3 

1C78! 

63 

D0 

12 

BC 

E3 

IE 

AE 

DD 

84 

00" 

19E0: 

05 

19 

C8 

Bl 

EB 

C9 

3C 

D0 

DF 

1CB0: 

IE 

AD 

OE 

IE 

20 

24 

ED 

AC 

0B 

125 

L  =  PEEK  (43616)  +  PEEK  C43 

19Ea: 

F9 

60 

20 

E2 

19 

BB 

BC 

05 

3C 

1CB8: 

E5 

IE 

4C 

29 

IC 

AE 

E6 

IE 

DE 

617)  t    256  +  8192 

19F0! 

IE 

A0 

01 

Bl 

EB 

99 

Cl 

21 

FF 

1C90: 

BD 

42 

IF 

20 

52 

16 

4C 

29 

CA 

130 

PRINT  D*!"DPEN  ";B« 
PRINT  0*5 "DELETE  "  ;  B» 
PRINT  D*}"OPEN  ";B« 
PRINT  D«; "WRITE  " ) B« 

i9Fa! 

CB 

CC 

D5 

IE 

90 

F5 

F0 

F3 

91 

1C98: 

IC 

20 

A6 

0A 

38 

AD 

48 

IE 

83 

131 

1A00! 

4C 

05 

19 

20 

E2 

19 

4C 

05 

D9 

1CA0! 

ED 

55 

IE 

AA 

AD 

49 

IE 

ED 

50 

132 

lA0a: 

19 

C8 

Bl 

EB 

C9 

BD 

F0 

07 

IE 

1CA8: 

56 

IE 

20 

24 

ED 

A9 

01 

80 

7F 

140 

1A10! 

88 

AD 

E6 

IE 

4C 

4C 

17 

CB 

3D 

1CB0: 

51 

IE 

60 

AD 

44 

IE 

49 

B0 

AD 

150 

FOR  I  =  8192  TO  L  -  1 
B  =  PEEK  ( I ) 

1A181 

20 

F0 

14 

4B 

AD 

E6 

IE 

AA 

BF 

ICBS! 

80 

44 

IE 

A9 

01 

BD 

45 

IE 

0E 

155 

1A20: 

68 

9D 

42 

IF 

20 

05 

19 

4C 

BD 

1CC0! 

60 

03 

D0 

C5 

C5 

C4 

D3 

C3 

41 

160 

IF  B  =  60  THEN  B  =  141 

1A28: 

F4 

18 

A2 

00 

ca 

Bl 

EB 

C9 

DF 

ICCSs 

02 

C9 

D0 

04 

A0 

B3 

AE 

B0 

26 

170 

PRINT  CHR«  (B> ; 

1A30; 

3C 

F0 

0A 

20 

2F 

16 

9D 

83 

92 

1CO0: 

00 

BB 

88 

BB 

BB 

A0 

C2 

09 

EA 

1B0 
190 
195 

NEXT 

PRINT 

PRINT  D«; "CLOSE  "jB* 

END 

PRINT  "ENTER  TEXT  FILE  NAME 

":  INPUT  "!"{B« 

iA3a! 

IE 

E8 

4C 

2C 

lA 

8E 

58 

IE 

DB 

ICDB: 

A0 

C3 

AE 

A0 

C2 

D2 

CI 

CE 

E5 

1A40: 

20 

9B 

09 

20 

57 

13 

AS 

FB 

DC 

ICE0! 

CE 

CF 

CE 

A0 

A6 

A0 

CB 

AE 

56 

1A48! 

BD 

72 

AA 

A5 

FC 

8D 

73 

AA 

3F 

1CE8: 

A0 

CO 

Cl 

D2 

D4 

C9 

CE 

00 

B5 

196 
200 

1A50: 
1A5S! 
1A60: 

A9 
65 
AE 

32 
AA 
60 

BD 
20 
AA 

5F 

60 
AC 

AA 
14 
61 

A9 
20 
AA 

01 
B0 
AD 

BD 
Al 

C5 

19 
B7 
FA 

1CF0: 
ICFB: 
1000: 

C2 
D5 
C6 

05 
CC 
C6 

C6 

CC 
C5 

C6 
C5 
02 

C5 
C4 
A0 

D2 
00 
C6 

A0 
C2 
D5 

CE 
05 

CC 

CE 

C6 
CD 

1A68! 

B5 

F0 

0B 

20 

96 

14 

A9 

00 

6F 

1D0B: 

CC 

00 

C4 

C5 

CC 

C5 

D4 

C5 

BA 

210 

INPUT  "ENTER  SPEEDSCRIPT  Fl 

1A70: 

20 

95 

FE 

4C 

36 

13 

BE 

55 

2F 

1010: 

A0 

AB 

D3 

AC 

07 

AC 

D0 

ft9 

C6 

220 
230 

LE  NAME  TO  CREATE    : " j  A* 
PRINT  D»; "OPEN  ";B* 
PRINT  D*i"ftEAD  ";B« 

1A78! 

IE 

BC 

56 

IE 

A5 

FB 

IB 

60 

46 

IDtB; 

00 

BA 

A0 

Cl 

D2 

C5 

A0 

09 

F9 

1AB0: 

55 

IE 

BD 

55 

IE 

A5 

FC 

60 

DC 

1D20! 

CF 

D3 

A0 

03 

DS 

D2 

C5 

BF 

4E 

lABBs 

56 

IE 

BD 

56 

IE 

20 

96 

14 

39 

102B: 

A0 

AB 

09 

AF 

CE 

A9 

BA 

00 

A5 

235 

L  =  0 

1A90I 

68 

68 

4C 

27 

17 

20 

Cl 

lA 

E5 

1D30! 

C5 

D2 

Cl 

D3 

C3 

A0 

Cl 

CC 

78 

240 

ONERR  GOTO  270 

lA9e: 

AD 

F0 

IE 

F0 

16 

20 

68 

IB 

CF 

1038: 

CC 

A0 

D4 

C5 

DB 

D4 

00 

C5 

D7 

250 

GET  C«:A  =  ASC  <C»  +  CHR$  ( 

1AA0: 

20 

E7 

lA 

AD 

EE 

IE 

C9 

FF 

80 

1D40S 

02 

Cl 

D3 

C5 

A0 

AB 

.03 

AC 

27 

0))  +  12B:  IF  A  =  141  THEN 

1AA8: 

F0 

09 

20 

8B 

IB 

20 

AC 

08 

0F 

1048: 

07 

AC 

D0 

AC 

Cl 

A9 

BA 

A0 

49 

A  =  60 

1AB0: 

4C 

A0 

lA 

4C 

90 

0A 

AO 

61 

A4 

1D50I 

02 

C5 

D4 

D5 

02 

CE 

ft0 

D4 

45 

260 

POKE  B192  +  L,A:L  =  L  +  1: 

1AB8: 

C0 

0D 

44 

IE 

40 

63 

C0 

30 

A4 

1058: 

CF 

A0 

C5 

DB 

C9 

D4 

00 

C5 

50 

GOTO  250 

1AC0! 

26 

20 

A6 

0A 

ft9 

08 

A0 

IE 

52 

1D60: 

CE 

D4 

C5 

D2 

A0 

C6 

CF 

D2 

AF 

270 

POKE  216,0 

1AC8: 

20 

D5 

09 

20 

71 

12 

BD 

F0 

85 

1D66: 

CD 

Cl 

04 

A0 

06 

Cl 

D2 

C9 

CB 

2B0 

PRINT 

lAD0t 

IE 

D0 

03 

4C 

90 

0A 

A0 

00 

5B 

1D70! 

Cl 

C2 

CC 

C5 

BA 

00 

D3 

Cl 

71 

290 

PRINT  0$; "CLOSE  "jB* 

lADBi 

B9 

83 

IE 

99 

Fl 

IE 

CB 

CC 

BE 

1D7S! 

06 

C5 

BA 

00 

CE 

CF 

ft0 

C5 

A3 

29S 

PRINT  DS;"BSAVE  ")A«;",Aai9 

1AE0: 

SB 

IE 

D0 

F4 

4C 

90 

0A 

A5 

90 

1DB0: 

D2 

D2 

CF 

02 

D3 

00 

CC 

CF 

0B 

2,L";L  -  1 

lAEB: 

FB 

85 

EB 

AS 

FC 

B5 

EC 

A9 

D5 

1D88: 

Cl 

C4 

BA 

00 

D0 

02 

C5 

D3 

50 

296 

END                         ^ 

126     COMI>UTEI     June  1985 


CAPUTE! 

Modifications  or  Corrections 
To  Previous  Articles 


Apple  Games  In  ProDOS 

Most  of  the  Apple  game  programs 
recently  published  in  COMPUTE!  fail 
to  operate  properly  with  Apple's 
new  ProDOS  operating  system,  al- 
though they  all  work  with  DOS  3.3. 
The  programs  suffer  from  the  same 
bug;  Their  graphics  were  developed 
using  the  DOS  3.3  version  of  the 
"Apple  SuperFont"  utility  (pub- 
lished in  the  April  1985  issue).  To 
use  the  following  programs  with 
ProDOS,  these  changes  are 
required: 

For  "Mindbusters"  (April  1985,  p.  54): 

120  POKE  6,0:POKE  7,141:P 
RINT  CHR*(4)5"PR#  A»3 
00" 

450  PRINT  CHR« (4) ; "PR*0" 

For  "Space  Caverns"  (March  1985,  p.  54): 

910  HDME: HGRs POKE  6,0;POK 
E  7,  141 : PRINT  CHR* (4) 
;  "PR#  A*300" 

For  "Bowling  Champ"  (February  1985, 
p.  126): 

130  HDME  :  POKE  230,32:  CALL 
62450:  HGR:  POKE  6,0:  PDK 
E  7,141:  PRINT  CHR«(4);"P 
R«  A«300" 

830  X  =  0:  FOR  I  >=  768  TO  853 
:  READ  A:X  =  X  +  A:  POKE 
I, A:  NEXT  :  IF  X  <  >  7950 
THEN  PRINT  "ERROR  IN  DAT 
A  STATEMENTS  FOR  ML  AT  76 
a.":  STOP 

940  DATA   216,133,69,134,70,1 
32,71, 166,7 

For  "Paratrooper"  (January  1985,  p.  72): 

200  FDR  I  =  768  TO  I  +  B5:  RE 

AD  A:X  =  X  +  A;  POKE  I, A: 

NEXT  :  IF  X  <  >  23417  TH 

EN  PRINT  "ERROR  IN  DATA  S 

TATEMENTS. '■:  STOP 

220  PRINT   CHR*  (4)"PR«  AS300 

1130  DATA   216,133,69,134,70, 
132,71, 166,7 

for  "Things  in  the  Dark"  (December 
1984,  p.  79): 

770  HOME  :  HGR  :  POKE  6,0:  PD 
KE  7,141:  PRINT  CHR*  (4)" 
PRtt  A*300" 

990  X  =  0:  FOR  I  =  76B  TO  853 
;  READ  AsX  =  X  +  A:  POKE 


I, A:  NEXT  :  IF  X  <  >  7950 
THEN  PRINT  "ERROR  IN  1ST 
SET  OF  DATA  STATEMENTS." 

:  STOP 
1000  DATA   216,133,69,134,70, 
<32,71, 166,7 

for  "Spiders"  (November  1984,  p.  96): 
160  CALL  36884 

In  addition,  ProDOS  filename  con- 
ventions require  that  you  BSAVE 
the  machine  language  portion  of 
Spiders  (Program  6)  with  the  title 
SPIDER.2  instead  of  SPIDER  2  as 
indicated  on  p.  90.  You'll  also  have 
to  change  SPIDER  2  to  SPIDER.2  in 
line  130  of  Program  5. 

Atari  Disk  Rx 

The  author  of  this  utility  program 
from  the  March  issue  (p.  107)  has 
provided  the  following  corrections: 
Renumber  line  4015  to  become  line 
4006,  replace  the  old  line  4015  with 
4015  REM,  change  the  GOTO  HALT 
in  line  5075  with  GOSUB  HALT, 
and  change  the  REC=  1  in  line  6040 
to  REC  =  0. 

It  is  also  possible  for  the  pro- 
gram to  crash  with  the  message 
ERROR  5  IN  LINE  325  while  you 
are  attempting  to  recover  large  files. 
The  error  occurs  because  the  pro- 
gram does  not  check  for  buffer  over- 
flow. To  prevent  this,  reader  jim 
Owens  suggests  adding  and  chang- 
ing the  following  lines: 

323  IF  FILL=1  AND  (BCNT+T 
yPE) >RAM  THEN  ?:?  " BU 
FFER  FULL.  LAST  BUFFE 
R  SECT=" ; SECT-1 : PDPjQ 
OTD  330 

326  NEXT  SECT 

330  IF  DIR=1  THEN  RETURN 


Apple  SuperFont 

There  are  two  typos  in  the  checksum 
program  (Program  6,  p.  137)  for  this 
custom  character  utility  for  the  Apple 
II  series  in  the  April  issue.  Lines'  140 
and  150  should  read  as  follows: 

140  FOR  J  =  0  TO  63:S  =  S 
+  PEEK  (4096  +1*6 

4  +  J ) :  NEXT 
150  READ  A:S  =  S  -  256  t 

INT   (S  /  256) 


Plus/Term  For  VIC  &  64 

In  addition  to  the  items  in  last 
month's  "CAPUTE!"  column,  there 
is  another  correction  to  the  machine 
language  portion  for  the  VIC-20. 
Whenever  you  load  a  file  into  the 
buffer,  the  lower  boundary  of  the 


buffer  is  reset  incorrectly  so  that  256 
bytes  of  garbage  are  added  to  the 
start  of  the  text.  To  remedy  this, 
reset  the  VIC  by  turning  it  off  and 
back  on.  Load  the  machine  language 
data  by  typing  LOAD  "PLUS/ 
TERM. ML", 8,1  (for  tape,  replace  the 
,8,1  with  ,1,1).  Then  enter  the  fol- 
lowing line  in  direct  mode  (without 
a  line  number): 

POKE  43,0:  POKE  44,24:  POKE  7075,64 

Immediately  save  the  revised  ver- 
sion by  typing  SAVE  "PLUS/ 
TERM.ML2",8  (or  ,1  for  tape).  Now 
change  line  100  of  the  BASIC  por- 
tion to  reflect  the  new  name  for  the 
machine  language  portion. 

If  your  printer  is  not  properly 
handling  upper-  and  lowercase 
characters,  try  changing  line  1900  to 
1900  OPEN  5,ZE,7. 

The  article  states  that  changing 
the  baud  rate  after  other  parameters 
have  been  set  causes  all  other  pa- 
rameters to  revert  to  their  default 
values.  Actually,  even  though  the 
various  submenus  will  show  all  pa- 
rameters reverted  to  their  default 
states,  the  actual  parameter  values 
will  not  have  changed.  Thus,  the 
menus  will  not  reflect  the  actual  set- 
tings of  the  parameters.  For  this  rea- 
son, you  should  always  change  the 
baud  rate  before  changing  any  other 
parameter.  © 
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Technical 


Breakthrough 


Number  S7 


Only  CARDCO  would  dare  improve  on  its  own 
best  seller  {the  +  G  has  far  out-sold  any  other 
printer  interface,  and  has  set  the  industry 
standard  by  which  competitors  are  judged). 
The  G-Wiz  is  even  better  —  and  costs 
30%  less.*  Our  27th  major  innovation  in 
Commodore  accessories  has  ail  the  +G's 
features,  and  more... 
Built-in  Buffer  far  More  Speed 
The  G-Wiz  buffer  dumps  high-resolution 
screens  up  to  18  times  faster  than  competitive 
interfaces  without  buffers.  No  more  waiting!  A 
complex  50-minute  printout  now  takes  just  2.5 
minutes  with  the  G-Wiz. 
Exclusive!  Aspect:  Ratio  Selectian 
Only  the  G-Wiz  matches  graphics  characters  to 
standard  characters  on  Okidata,  Epson,  Star 

■  Adua!  price  may  vary  according  so  dealef  and  region. 


Micronics,  Prowriter,  Smith  Corona,  C-ITOH, 
Gorilla  Banana,  and  many  other  dot  matrix 
printers.  Now  you  can  perfectly  align  high 
resolution  graphics  characters  within  text 
blocks,  or  in  columns. 
CARDCO  excellence  triumphs  again!  The 
G-Wiz  is  the  "best  bang  for  the  buck"  on  the 
printer  Interface  market  today  —  and  it's 
backed  by  CARDCO'S  exclusive  lifetime 
warranty!  G-Wiz:  another  distant  target  for  the 
competition  to  shoot  at. 

CARDCO,lnc.300S.Topeka/Wichita,KS  67202 
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The  Wizarde  from  the  Land  of  Or  Have  0003  It  Again! 


IT'S  NOT  HOW  MUCH  YOU  PAY. 


IT'S  HOW  MUCH  YOU  GET. 


The  computer  at  the  top 
has  a  64K  memory. 

It  has  the  initials  i,  B,  and 
M.  And  you  pay  for  those 
initials. 

The  Commodore  64'"  has 
a  64K  memory. 

But  you  don't  pay  for  the 
initials,  you  just  pay  for  the 
computer.  About  one  third  the 
price  of  the  IBM  PCjr.™ 

The  Commodore  64  .">  ^  ■ 
also  has  a  typewriter-type  .    ' 


keyboard  with  66  typewriter- 
type  keys.  (Not  rubber  chicklet 
keys  like  the  IBM  PCjr.) 

It  has  high  resolution 
graphics  with  320  x  200  pixel 
resolution,  16  available  colors 
and  eight  3-dimensional  sprites. 

It  has  9-octave  high  fidelity 
sound. 

The  Commodore  64  is 
capable  of  running  thousands 
of  programs  for  home  and 
office.  And  if  you  ^dd  a  printer 


or  color  monitor,  disk  drive  and 
a  modem— all  together  it  just 
about  equals  the  price  of  the 
IBM  PCjr  all  alone.  With  no 
peripherals. 

So  you  can  buy  a  computer 
for  a  lot  of  money. 

Or  buy  a  lot  of  computer 
for  the  money. 

COMMODORE  64: 

IT'S  NOT  HOW  LiniE  IT  COSTS, 
IT'S  HOW  MUCH  you  GET 


